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 !
   5 ! Contributed by Paul Thomas  <pault@gcc.gnu.org>
   6 !
   7
   8 module global
   9
  10   integer :: modvar
  11   namelist /NL/ modvar
  12
  13 contains
  14
  15   subroutine foo (i)
  16     integer :: i
  17     write (*, 100) i
  18  100 format (1h , "i=", i6)                     ! This is OK.
  19   end subroutine foo
  20
  21 end module global
  22
  23  use global
  24  integer :: a,b, c(20)
  25  integer(8) :: ierr
  26  character*80 :: buffer(3)
  27
  28
  29 ! Appending to a USE associated namelist is an extension.
  30
  31  NAMELIST /NL/ a,b                              ! { dg-warning "already is USE associated" }
  32
  33  a=1 ; b=2
  34
  35  write(*, NML=NL) z                             !  { dg-error "followed by IO-list" }
  36 !Was correctly picked up before patch.
  37  print NL, z                                    !  { dg-error "followed by IO-list" }
  38 !
  39 ! Not allowed with internal unit
  40 !Was correctly picked up before patch.
  41  write(buffer, NML=NL)                          !  { dg-error "incompatible with namelist" }
  42 !Was correctly picked up before patch.
  43  write(buffer, fmt='(i6)', REC=10) a            !  { dg-error "REC tag" }
  44  write(buffer, fmt='(i6)', END=10) a            !  { dg-error "END tag" }
  45
  46 ! Not allowed with REC= specifier
  47 !Was correctly picked up before patch.
  48  read(10, REC=10, END=100)                      !  { dg-error "END tag is not allowed" }
  49  write(*, *, REC=10)                            !  { dg-error "FMT=" }
  50
  51 ! Not allowed with an ADVANCE=specifier
  52  READ(buffer, fmt='(i6)', advance='YES') a      ! { dg-error "internal file" }
  53  READ(1, NML=NL, advance='YES')                 ! { dg-error "NAMELIST IO is not allowed" }
  54
  55  write(1, fmt='(i6)', advance='YES', size = c(1)) a ! { dg-error "output" }
  56  write(1, fmt='(i6)', advance='YES', eor = 100) a   ! { dg-error "output" }
  57
  58  read(1, fmt='(i6)', advance='YES', size = c(1)) a  ! { dg-error "ADVANCE = 'NO'" }
  59  read(1, fmt='(i6)', advance='YES', eor = 100) a    ! { dg-error "ADVANCE = 'NO'" }
  60
  61  READ(1, fmt='(i6)', advance='NO', size = buffer) a ! { dg-error "INTEGER" }
  62 !Was correctly picked up before patch. -correct syntax error
  63  READ(1, fmt='(i6)', advance='YES', size = 10) a    ! { dg-error "Syntax error" }
  64
  65  READ(1, fmt='(i6)', advance='MAYBE')               !  { dg-error "YES or NO" }
  66
  67 100 continue
  68 200 format (2i6)
  69  END