How to do this in gfortran

[Mark Hounschell <markh at compro dot net>]

I am porting some very old code. I have many things like below in this code


       program test
       implicit none

       integer*1 ivalx1
       integer*2 ivalx2
       integer*4 ivalx4

       parameter (ivalx1 = x'80')
       parameter (ivalx2 = x'8000')
       parameter (ivalx4 = x'80000000')

The compiler fails with:

f77 test.f
test.f:8.26:

       parameter (ivalx1 = x'80')
                          1
Error: Arithmetic overflow converting INTEGER(8) to INTEGER(1) at (1). 
This check can be disabled with the option -fno-range-check
test.f:9.26:

       parameter (ivalx2 = x'8000')
                          1
Error: Arithmetic overflow converting INTEGER(8) to INTEGER(2) at (1). 
This check can be disabled with the option -fno-range-check
test.f:10.26:

       parameter (ivalx4 = x'80000000')
                          1
Error: Arithmetic overflow converting INTEGER(8) to INTEGER(4) at (1). 
This check can be disabled with the option -fno-range-check

I don't want to use the -fno-range-check option because I want to know 
about the real ones. I don't understand why gfortran has issues with 
this. They are certainly valid values for the the types specified. I 
have been, just setting the values in the code section using the 
'transfer' instrinsic but now I'm finding these in include files and I 
would have to change every source file that used the particular include 
file. I'm sure there is an easy solution. Could someone enlighten me please.

Thanks and Regards
Mark