parameter_2.f90 « execute « gfortran.fortran-torture « testsuite « gcc - cbb-gcc-4.6.4 - compiler building blocks: cbb-gcc-4.6.4: including full support for the midipix targets

summary refs log tree commit diff

path: root/gcc/testsuite/gfortran.fortran-torture/execute/parameter_2.f90

blob: 1e9710472422ba5d5a51f2e9b6343e7afd4dd8c7 (plain)

module m
  parameter (p = -1.) ! negative numbers used to get output incorrectly
end module m

use m
if (p .ne. -1.) CALL abort()
end