Sign in
llvm
/
llvm-archive
/
2d92d8f3eda4630e3e80be62081ca797828d58e1
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
g77
/
20001111.f
blob: 366956a66e3170b5bd6cb50ad80643ec295de0c3 [
file
] [
log
] [
blame
]
c
{
dg
-
do
run
}
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