1! { dg-do compile }
2! { dg-options "-std=f95" }
3! Part I of the test  of the IO constraints patch, which fixes PRs:
4! PRs 25053, 25063, 25064, 25066, 25067, 25068, 25069, 25307 and 20862.
5!
6! Contributed by Paul Thomas  <pault@gcc.gnu.org>
7!
8module fails
9
10 2000 format (1h , 2i6)                        ! { dg-error "Format statement in module" }
11
12end module fails
13
14module global
15
16  integer :: modvar
17  namelist /NL/ modvar
18
19contains
20
21  subroutine foo (i)
22    integer :: i
23    write (*, 100) i
24 100 format (1h , "i=", i6)                     ! { dg-warning "The H format specifier at ... is a Fortran 95 deleted feature" }
25  end subroutine foo
26
27end module global
28
29 use global
30 integer :: a,b, c(20)
31 integer(8) :: ierr
32 character(80) :: buffer(3)
33
34! Appending to a USE associated namelist is an extension.
35
36 NAMELIST /NL/ a,b                              ! { dg-error "already is USE associated" }
37
38 a=1 ; b=2
39
40!9.2.2.1:
41 write(c, *) a, b                               !  { dg-error "array" }
42!Was correctly picked up before patch.
43 write(buffer((/3,1,2/)), *) a, b               !  { dg-error "vector subscript" }
44
45!9.2.2.2 and one of 9.4.1
46!________________________
47
48 write(6, NML=NL, FMT = '(i6)')                 !  { dg-error "group name and format" }
49 write(6, NML=NL, FMT = 200)                    !  { dg-error "group name and format" }
50
51!9.4.1
52!_____
53!
54
55! R912
56!Was correctly picked up before patch.
57 write(6, NML=NL, iostat = ierr)                ! { dg-error "requires default INTEGER" }
58
59! Constraints
60!Was correctly picked up before patch.
61 write(1, fmt='(i6)', end = 100) a              ! { dg-error "END tag" }
62!Was correctly picked up before patch.
63 write(1, fmt='(i6)', eor = 100) a              ! { dg-error "EOR tag" }
64!Was correctly picked up before patch.
65 write(1, fmt='(i6)', size = b) a               ! { dg-error "SIZE= specifier not allowed" }
66
67
68 READ(1, fmt='(i6)', end = 900) a               ! { dg-error "not defined" }
69 READ(1, fmt='(i6)', eor = 900, advance='NO') a ! { dg-error "not defined" }
70 READ(1, fmt='(i6)', ERR = 900) a               ! { dg-error "not defined" }
71
72!Was correctly picked up before patch.
73 READ(1, fmt=800) a                             ! { dg-error "not defined" }
74
75
76100 continue
77200 format (2i6)
78 END
79