gcc/testsuite/g77.f-torture/execute/alpha2.f

   1 c     This was originally a compile test.
   2       IMPLICIT REAL*8 (A-H,O-Z)
   3       COMMON /C/   A(9), INT
   4       DATA A      /
   5      1                 0.49999973986348730D01, 0.40000399113084100D01,
   6      2                 0.29996921166596490D01, 0.20016917082678680D01,
   7      3                 0.99126390351864390D00, 0.97963256554443300D-01,
   8      4                -0.87360964813570100D-02, 0.16917082678692080D-02,
   9      5                7./
  10 C     Data values were once mis-compiled on (OSF/1 ?) Alpha with -O2
  11 c     such that, for instance, `7.' appeared as `4.' in the assembler
  12 c     output.
  13       call test(a(9), 7)
  14       END
  15       subroutine test(r, i)
  16       double precision r
  17       if (nint(r)/=i) call abort
  18       end
  19