Sign in
llvm
/
llvm-archive
/
1456578521548c1ea3e191fcd25bb39efd8203cd
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
parameter_2.f90
blob: 1e9710472422ba5d5a51f2e9b6343e7afd4dd8c7 [
file
] [
log
] [
blame
]
module
m
parameter
(
p
=
-
1.
)
!
negative numbers used to
get
output incorrectly
end
module
m
use
m
if
(
p
.
ne
.
-
1.
)
CALL abort
()
end