Searched refs:iunit (Results 1 - 4 of 4) sorted by relevance
/haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/ |
H A D | pr16597.f90 | 15 integer iunit variable in program:gfbug4 18 iunit = 99 19 open (UNIT=iunit,FORM='unformatted',ACCESS='direct',RECL=strlen) 20 write (iunit, rec=1) 'ABCD' 21 read (iunit, rec=1) string 22 close (iunit, status = 'delete') 25 open (UNIT=iunit,FORM='unformatted',ACCESS='direct',STATUS='scratch',RECL=strlen) 26 write (iunit, rec=1) 'ABCD' 27 read (iunit, rec=1) string 28 close (iunit) [all...] |
H A D | backspace_10.f90 | 7 integer, parameter :: iunit = 63 variable in program:gfcbug69b 11 open (iunit) 12 write (iunit, '(a)') "! ***Remove this line***" 13 write (iunit, '(a)') "&FOO file='foo' /" 14 write (iunit, '(a)', advance="no") "&BAR file='bar' /" 15 close (iunit) 17 open (iunit, action="read", status="old") 19 read (iunit,'(a)',iostat=ios) line 21 read (iunit,'(a)',iostat=ios) line 23 read (iunit,'( [all...] |
H A D | namelist_21.f90 | 10 integer, parameter :: maxop=15, iunit=7 variable in program:pr24794
|
H A D | namelist_22.f90 | 11 integer, parameter :: maxop=15, iunit=7 variable in program:pr24794
|
Completed in 107 milliseconds