Sign in
gnu
/
gcc
/
cd2fd5facb5e1882d3f338ed456ae9536f7c0593
/
.
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
f2_edit_1.f90
blob: 333bfaefe8bd91dc4f143381a0471f38bd62dd6c [
file
] [
log
] [
blame
]
!
check F2
.
x edit descriptors
!
PR
14746
CHARACTER
*
15
LINE
RCON21
=
9.
RCON22
=
.
9
WRITE
(
LINE
,
'(F2.0,1H,,F2.1)'
)
RCON21
,
RCON22
READ
(
LINE
,
'(F2.0,1X,F2.1)'
)
XRCON21
,
XRCON22
IF
(
RCON21
.
NE
.
XRCON21
)
STOP
1
IF
(
RCON22
.
NE
.
XRCON22
)
STOP
2
END