2 ! Part II of the test of the IO constraints patch, which fixes PRs:
3 ! PRs 25053, 25063, 25064, 25066, 25067, 25068, 25069, 25307 and 20862.
4 ! Modified2006-07-08 to check the patch for PR20844.
6 ! Contributed by Paul Thomas <pault@gcc.gnu.org>
19 100 format (1h , "i=", i6) ! This is OK.
27 character*80 :: buffer(3)
30 ! Appending to a USE associated namelist is an extension.
32 NAMELIST /NL/ a,b ! { dg-warning "already is USE associated" }
36 write(*, NML=NL) z ! { dg-error "followed by IO-list" }
37 !Was correctly picked up before patch.
38 print NL, z ! { dg-error "followed by IO-list" }
40 ! Not allowed with internal unit
41 !Was correctly picked up before patch.
42 write(buffer, NML=NL) ! { dg-error "incompatible with namelist" }
43 !Was correctly picked up before patch.
44 write(buffer, fmt='(i6)', REC=10) a ! { dg-error "REC tag" }
45 write(buffer, fmt='(i6)', END=10) a ! { dg-error "END tag" }
47 ! Not allowed with REC= specifier
48 !Was correctly picked up before patch.
49 read(10, REC=10, END=100) ! { dg-error "END tag is not allowed" }
50 write(*, *, REC=10) ! { dg-error "FMT=" }
52 ! Not allowed with an ADVANCE=specifier
53 READ(buffer, fmt='(i6)', advance='YES') a ! { dg-error "internal file" }
54 READ(1, NML=NL, advance='YES') ! { dg-error "NAMELIST IO is not allowed" }
56 READ(1, advance='YES') ! { dg-error "must appear with an explicit format" }
58 write(1, fmt='(i6)', advance='YES', size = c(1)) a ! { dg-error "output" }
59 write(1, fmt='(i6)', advance='YES', eor = 100) a ! { dg-error "output" }
61 read(1, fmt='(i6)', advance='YES', size = c(1)) a ! { dg-error "ADVANCE = 'NO'" }
62 read(1, fmt='(i6)', advance='YES', eor = 100) a ! { dg-error "ADVANCE = 'NO'" }
64 READ(1, fmt='(i6)', advance='NO', size = buffer) a ! { dg-error "INTEGER" }
65 !Was correctly picked up before patch. -correct syntax error
66 READ(1, fmt='(i6)', advance='YES', size = 10) a ! { dg-error "Syntax error" }
68 READ(1, fmt='(i6)', advance='MAYBE') ! { dg-error "YES or NO" }
74 ! { dg-final { cleanup-modules "global" } }