Sign in
gnu
/
gcc.git
/
refs/heads/master
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
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
