Sign in
llvm
/
llvm-archive
/
80a0e6b09a6ccb2f8832d59b5fb8d96f9ae994c5
/
.
/
llvm-gcc-4.0
/
gcc
/
testsuite
/
gfortran.dg
/
open-options-blanks.f
blob: 8f5faa416297527b7af0b4b38cc44b57f86af3dc [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
PR
20163
,
first half
:
Trailing
blanks on an option to
!
open used to cause an error
CHARACTER
*
8
ST
ST
=
'SCRATCH '
OPEN
(
UNIT
=
10
,
STATUS
=
ST
)
END