Sign in
gnu
/
gcc
/
dc9b9e310659bc1320d94355d18ea0fe64b13df6
/
.
/
gcc
/
testsuite
/
g77.dg
/
fvxt-1.f
blob: 0cde4f8a36f46c64861552b9f4a6f2cdb5590ee1 [
file
] [
log
] [
blame
]
C
Test
compiler flags
:
-
fvxt
C
Origin
:
David
Billinghurst
<
David
.
Billinghurst@riotinto
.
com
>
C
C
{
dg
-
do
run
}
C
{
dg
-
options
"-fvxt"
}
i
=
0
!
1
if
(
i
.
eq
.
0
)
call
exit
call abort
END