parameter_1.f90
[
plain text
]
! legal integer, parameter :: j = huge(j) integer i if (j /= huge(i)) call abort end