Fortran Wiki
is_iostat_end (changes)

Skip the Navigation Links | Home Page | All Pages | Recently Revised | Authors | Feeds | Export |

Showing changes from revision #3 to #4: (追記) Added (追記ここまで) | (削除) Removed (削除ここまで) | (削除) Chan (削除ここまで)(追記) ged (追記ここまで)

Description

is_iostat_end tests whether an variable has the value of the I/O status "end of file". The function is equivalent to comparing the variable with the iostat_end parameter of the intrinsic module iso_fortran_env.

Standard

(削除) Fortran 2003 and later (削除ここまで)(追記) Fortran 2003 (追記ここまで)(追記) and later (追記ここまで)

Class

(削除) Elemental function (削除ここまで)(追記) Elemental function (追記ここまで)

Syntax

result = is_iostat_end(i)

Arguments

• i - Shall be of the type integer.

Return value

Returns a logical of the default kind, which .true. if i has the value which indicates an end of file condition for(削除) IOSTAT= (削除ここまで)(削除) specifiers, (削除ここまで)(削除) and (削除ここまで)(削除) is (削除ここまで)(追記) IOSTAT= (追記ここまで)(追記) specifiers, and is (追記ここまで).false. otherwise.

Example

program iostat
 implicit none
 integer :: stat, i
 open(88, file='test.dat')
 read(88, *, iostat=stat) i
 if(is_iostat_end(stat)) stop 'end of file'
end program

Revised on May 5, 2009 23:20:55 by Jason Blevins (71.70.142.190) (844 characters / 0.0 pages)

Edit | Back in time (3 revisions) | Hide changes | History | Views: Print | TeX | Source | Linked from: Intrinsic procedures