Sign in
gnu
/
gcc
/
bdd784fc48a283d54f5f1e3cc2a0668c14dd3bee
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
open-options-blanks.f
blob: 4db31b9e31a2a07e7f186c16f6d2572bc270111b [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
{
dg
-
options
"-std=legacy"
}
!
!
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