Merge from mainline (165734:167278).

[official-gcc/graphite-test-results.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