gcc/testsuite/gfortran.dg/newunit_6.f90


1
2
3
4
5
6
7
8
9

! { dg-do compile }
!
! PR fortran/83057 - OPEN without a filename and without STATUS='SCRATCH'
!                    could produce a warning

  open(newunit=iun,file="file")         ! this is ok
  open(newunit=jun,status="scratch")    ! this too
  open(newunit=lun)             ! { dg-error "NEWUNIT specifier must have" }
end