Searched refs:mynml (Results 1 - 19 of 19) sorted by relevance

/haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/
H A Dnamelist_print_2.f10 namelist /mynml/ x namelist
12 print mynml ! { dg-error "PRINT namelist.*extension" "" }
H A Dnamelist_print_1.f9 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 Dnamelist_23.f909 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 Dnamelist_29.f9012 NAMELIST /mynml/ F1 namelist in function:F1
16 write (buffer, nml = mynml)
18 READ (buffer, nml = mynml)
H A Dpr17285.f9011 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 Dnamelist_31.f9014 namelist /mynml/ y namelist in subroutine:foo
15 write (*, mynml)
H A Dnamelist_32.f9014 namelist /mynml/ y ! { dg-error "is not allowed" } namelist in subroutine:foo
15 write (6, mynml)
H A Dnamelist_16.f906 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 Dnamelist_17.f907 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 Dprint_fmt_3.f7 namelist /mynml/ x namelist
H A Dnamelist_18.f9010 namelist /mynml/ ch namelist in program:namelist_18
13 write (10, mynml)
22 write (10, mynml)
31 write (10, mynml)
H A Dnamelist_13.f9023 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 Dnamelist_11.f13 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 Dnamelist_12.f17 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 Dnamelist_15.f9021 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 Dprint_fmt_5.f9011 namelist /mynml/ i namelist in program:r
20 print mynml ! { dg-warning "is an extension" }
H A Dnamelist_24.f9013 namelist / mynml / names, names2, names3 namelist in program:pr24459
25 read(20,nml=mynml, iostat=ier)
H A Dnamelist_40.f9019 namelist /mynml/ x namelist in program:namelist_40
42 read (10, nml = mynml, iostat=ierror, iomsg=errmessage)
H A Dnamelist_47.f9017 namelist /mynml/ x namelist in program:namelist_47
40 read (10, nml = mynml, iostat=ierror, iomsg=errmessage)

Completed in 87 milliseconds