Sign in
llvm
/
llvm-test-suite
/
refs/tags/llvmorg-19.1.2
/
.
/
Fortran
/
gfortran
/
regression
/
ltime_gmtime_1.f90
blob: 2d34b22c70be625229cc0907a09179c6f402b8d9 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
{
dg
-
options
"-std=gnu"
}
integer
::
x
(
9
),
y
(
9
),
t
t
=
time
()
call ltime
(
t
,
x
)
call gmtime
(
t
,
y
)
if
(
x
(
1
)
/=
y
(
1
)
.
or
.
mod
(
x
(
2
),
30
)
/=
mod
(
y
(
2
),
30
))
STOP
1
end
