/haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/ |
H A D | namelist_print_2.f | 10 namelist /mynml/ x namelist 12 print mynml ! { dg-error "PRINT namelist.*extension" "" }
|
H A D | namelist_print_1.f | 9 namelist /mynml/ x namelist 12 print mynml ! { dg-output "&MYNML(\n|\r\n|\r) X= 1.00000000 ,(\n|\r\n|\r) /(\n|\r\n|\r)" }
|
H A D | namelist_23.f90 | 9 namelist /mynml/ truely namelist in program:read_logical 10 namelist /mynml/ truely_a_very_long_variable_name namelist in program:read_logical 16 write(10,*) "&mynml" 21 read (10, nml=mynml, err = 1000) 29 write(10,*) "&mynml" 34 read (10, nml=mynml, err = 1000) 42 write(10,*) "&mynml" 47 read (10, nml=mynml, err = 1000)
|
H A D | namelist_29.f90 | 12 NAMELIST /mynml/ F1 namelist in function:F1 16 write (buffer, nml = mynml) 18 READ (buffer, nml = mynml)
|
H A D | pr17285.f90 | 11 namelist /mynml/ number namelist in program:pr17285 14 "&mynml number(:)=42,42,42,42,42,42,42,42,42,42,/ " 15 write (10,mynml) 16 write (10,'(A)') "&mynml number(1:10)=10*42 &end" 20 read (10, nml = mynml, iostat = ierr)
|
H A D | namelist_31.f90 | 14 namelist /mynml/ y namelist in subroutine:foo 15 write (*, mynml)
|
H A D | namelist_32.f90 | 14 namelist /mynml/ y ! { dg-error "is not allowed" } namelist in subroutine:foo 15 write (6, mynml)
|
H A D | namelist_16.f90 | 6 namelist /mynml/ z namelist in program:namelist_16 10 write (10, '(A)') "&mynml z(1)=(5.,6.) z(2)=(7.,8.) /" 13 read (10, mynml, iostat = ier) 18 write (10, mynml, iostat = ier) 23 read (10, mynml, iostat = ier)
|
H A D | namelist_17.f90 | 7 namelist /mynml/ l namelist in program:namelist_17 11 write (10, '(A)') "&mynml l = F T /" 14 read (10, mynml, iostat = ier) 19 write (10, mynml, iostat = ier) 24 read (10, mynml, iostat = ier)
|
H A D | print_fmt_3.f | 7 namelist /mynml/ x namelist
|
H A D | namelist_18.f90 | 10 namelist /mynml/ ch namelist in program:namelist_18 13 write (10, mynml) 22 write (10, mynml) 31 write (10, mynml)
|
H A D | namelist_13.f90 | 23 namelist /mynml/ zeros, z namelist in program:namelist_13 29 write (10, nml=mynml, iostat=ier) 33 read (10, NML=mynml, IOSTAT=ier)
|
H A D | namelist_11.f | 13 namelist /mynml/ x, xx namelist in program:namelist_1 23 write (10, *) "!mynml" 26 write (10, *) "&mynml x(7) =+99.0e0 x=1.0, 2.0 ," 33 read (10, nml=mynml, IOSTAT=ier) 42 write (10, nml=mynml, iostat=ier) 46 read (10, NML=mynml, IOSTAT=ier)
|
H A D | namelist_12.f | 17 namelist /mynml/ x, xx, ch namelist in program:namelist_12 31 write (10, '(a)') "!mynml" 33 write (10, '(a)') "&mynml x(7) =+99 x=1, 2 ," 40 read (10, nml=mynml, IOSTAT=ier) 44 write (10, nml=mynml, iostat=ier) 48 read (10, NML=mynml, IOSTAT=ier)
|
H A D | namelist_15.f90 | 21 namelist /mynml/ x namelist in program:namelist_15 38 read (10, nml = mynml, iostat = ier) 43 write (10, nml = mynml) 46 read (10, nml = mynml, iostat = ier)
|
H A D | print_fmt_5.f90 | 11 namelist /mynml/ i namelist in program:r 20 print mynml ! { dg-warning "is an extension" }
|
H A D | namelist_24.f90 | 13 namelist / mynml / names, names2, names3 namelist in program:pr24459 25 read(20,nml=mynml, iostat=ier)
|
H A D | namelist_40.f90 | 19 namelist /mynml/ x namelist in program:namelist_40 42 read (10, nml = mynml, iostat=ierror, iomsg=errmessage)
|
H A D | namelist_47.f90 | 17 namelist /mynml/ x namelist in program:namelist_47 40 read (10, nml = mynml, iostat=ierror, iomsg=errmessage)
|