Sign in
llvm
/
llvm-archive
/
089ca8750d7cd1f1ec96968922bf4bcfe223bb3a
/
.
/
llvm-gcc-4.2
/
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