Sign in
llvm
/
llvm-archive
/
b74e25f9042d5657e8f400dd820eba426827f1dd
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
ltime_gmtime_2.f90
blob: 870f011692e5d4bf35fe5dce0789dbc315facf0f [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
{
dg
-
options
"-fdefault-integer-8 -std=gnu"
}
integer
::
x
(
9
),
y
(
9
),
t
t
=
time
()
call ltime
(
t
,
x
)
call gmtime
(
t
,
y
)
if
(
x
(
1
)
/=
y
(
1
)
.
or
.
x
(
2
)
/=
y
(
2
))
call abort
end
