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