sgif90: no cast in DATA

["E. Focht" <focht@xxxxxxxxxx>]

Hello,

on the IA64 the code generated by sgif90 for the following example is
wrong. Octal and hexadecimal constants seem to be shifted by 32 bits to
the left.

      program ftn3
      integer (kind=8) i,j
      data i / Z'1' /
      data j / O'1' /
      write(*,'(z16,2x,z16)')i,j
      end

[focht@warp4 byteswap]$ sgif90 ftn3.f
[focht@warp4 byteswap]$ ./a.out
       100000000         100000000

Best regards,
Erich Focht

---
Dr. Erich Focht                                <efocht@xxxxxxxxxx>
NEC European Supercomputer Systems, European HPC Technology Center
Hessbruehlstr. 21B, 70565 Stuttgart, Germany
phone: +49-711-78055-15                    fax  : +49-711-78055-25