Sign in
chromium
/
native_client
/
nacl-toolchain
/
gcc-4.4.3
/
.
/
gcc
/
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