Sign in
llvm
/
llvm-archive
/
80a0e6b09a6ccb2f8832d59b5fb8d96f9ae994c5
/
.
/
llvm-gcc-4.0
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
f2_edit_1.f90
blob: cb2f5eacd338642f07c1ab4010f5c50f79510878 [
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
)
CALL ABORT
IF
(
RCON22
.
NE
.
XRCON22
)
CALL ABORT
END