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