! { 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 |