blob: 227b0267cb8972389a2b30fe8fe8e28c5f5af1e5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
! { 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
|
