2014-04-15 Richard Biener <rguenther@suse.de>
[official-gcc.git] / gcc / testsuite / gfortran.dg / internal_io_unf.f90
blob227b0267cb8972389a2b30fe8fe8e28c5f5af1e5
1 ! { dg-do compile }
3 ! PR fortran/34654
5 ! Disallow unformatted write to internal unit.
6 ! Test case was contributed by Joost VandeVondele.
8 implicit none
9 CHARACTER :: a(3)
10 WRITE(a) 0 ! { dg-error "Unformatted I/O not allowed with internal unit" }
11 END