gcc/testsuite/gfortran.dg/internal_io_unf.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/34654
   4 !
   5 ! Disallow unformatted write to internal unit.
   6 ! Test case was contributed by Joost VandeVondele.
   7 !
   8 implicit none
   9 CHARACTER :: a(3)
  10 WRITE(a) 0 ! { dg-error "Unformatted I/O not allowed with internal unit" }
  11 END