2017-02-20 Paul Thomas <pault@gcc.gnu.org>

[official-gcc.git] / gcc / testsuite / gfortran.dg / internal_io_unf.f90

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