OSDN Git Service

c2a49e29d16d8b051ad12acad4a10ad94004626a
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / io_constraints_2.f90
1 ! { dg-do compile }
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.
5 !
6 ! Contributed by Paul Thomas  <pault@gcc.gnu.org>
7 !
8
9 module global
10
11   integer :: modvar
12   namelist /NL/ modvar
13
14 contains
15
16   subroutine foo (i)
17     integer :: i
18     write (*, 100) i
19  100 format (1h , "i=", i6)                     ! This is OK.
20   end subroutine foo
21
22 end module global
23
24  use global
25  integer :: a,b, c(20)
26  integer(8) :: ierr
27  character*80 :: buffer(3)
28
29
30 ! Appending to a USE associated namelist is an extension.
31
32  NAMELIST /NL/ a,b                              ! { dg-warning "already is USE associated" }
33
34  a=1 ; b=2
35
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" }
39 !
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" }
46
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=" }
51
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" }
55
56  READ(1, advance='YES')                         ! { dg-error "must appear with an explicit format" }
57
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" }
60
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'" }
63
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" }
67
68  READ(1, fmt='(i6)', advance='MAYBE')               !  { dg-error "YES or NO" }
69
70 100 continue
71 200 format (2i6)
72  END
73
74 ! { dg-final { cleanup-modules "global" } }