Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
unsigned_19.f90
blob: 2795ddf335ea4b32044eff9b410454e1a6ddaabc [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
{
dg
-
options
"-funsigned"
}
program memain
if
(
range
(
1u
_1
)
/=
2
)
error stop
1
if
(
range
(
1u
_2
)
/=
4
)
error stop
2
if
(
range
(
1u
_4
)
/=
9
)
error stop
3
if
(
range
(
1u
_8
)
/=
19
)
error stop
4
end
program memain