summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/io_constraints_7.f03
blob: 4d1849198148299dd149e76d2e1e4694f791471e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
! { dg-do compile }

! PR fortran/45776
! Variable definition context checks related to IO.

! Contributed by Daniel Kraft, d@domob.eu.

module m
  implicit none
  integer, protected :: a
  character(len=128), protected :: msg
end module m

program main
  use :: m
  integer :: x
  logical :: bool

  write (*, iostat=a) 42 ! { dg-error "variable definition context" }
  write (*, iomsg=msg) 42 ! { dg-error "variable definition context" }
  read (*, '(I2)', advance='no', size=a) x ! { dg-error "variable definition context" }

  ! These are ok.
  inquire (unit=a)
  inquire (file=msg, id=a, pending=bool)
  inquire (file=msg)

  ! These not, but list is not extensive.
  inquire (unit=1, number=a) ! { dg-error "variable definition context" }
  inquire (unit=1, encoding=msg) ! { dg-error "variable definition context" }
  inquire (unit=1, formatted=msg) ! { dg-error "variable definition context" }

  open (newunit=a, file="foo") ! { dg-error "variable definition context" }
  close (unit=a)
end program main

! { dg-final { cleanup-modules "m" } }