Subversion Repositories openrisc

! { 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" } }