Sign in
gnu
/
gcc
/
14bc1c0e15633ea781d76d0ae4274b2e27d51db5
/
.
/
gcc
/
testsuite
/
g77.f-torture
/
execute
/
20001111.f
blob: db342bbd42b93f452a6d956c1ad5b29a0d99af25 [
file
] [
log
] [
blame
]
DOUBLE PRECISION VALUE
(
2
),
TOLD
,
BK
DATA VALUE
/
0D0
,
1D0
/
DATA TOLD
/
0D0
/
DO I
=
1
,
2
BK
=
VALUE
(
I
)
IF
(
BK
.
GT
.
TOLD
)
GOTO
10
ENDDO
WRITE
(*,*)
'Error: BK = '
,
BK
CALL ABORT
10
CONTINUE
WRITE
(*,*)
'No Error: BK = '
,
BK
END