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

   1       PROGRAM LABUG1
   2
   3 *  This program core dumps on mips-sgi-irix6.2 when compiled
   4 *  with egcs-19981101, egcs-19981109 and egcs-19981122 snapshots
   5 *  with -O2
   6 *
   7 *  Originally derived from LAPACK test suite.
   8 *  Almost any change allows it to run.
   9 *
  10 *  David Billinghurst, (David.Billinghurst@riotinto.com.au)
  11 *  25 November 1998
  12 *
  13 *     .. Parameters ..
  14       INTEGER   LDA, LDE
  15       PARAMETER ( LDA = 2500, LDE = 50  )
  16       COMPLEX   CZERO
  17       PARAMETER ( CZERO = ( 0.0E+0, 0.0E+0 ) )
  18
  19       INTEGER   I, J, M, N
  20       REAL      V
  21       COMPLEX   A(LDA),B(LDA),C(LDA),E(LDE,LDE),F(LDE,LDE)
  22       COMPLEX   Z
  23
  24       N=2
  25       M=1
  26 *
  27       do i = 1, m
  28          do j = 1, n
  29             e(i,j) = czero
  30             f(i,j) = czero
  31         end do
  32       end do
  33 *
  34       DO J = 1, N
  35          DO I = 1, M
  36             V =  ABS( E(I,J) - F(I,J) )
  37          END DO
  38       END DO
  39
  40       CALL SUB2(M,Z)
  41
  42       END
  43
  44       subroutine SUB2(I,A)
  45       integer i
  46       complex a
  47       end
  48
  49
  50
  51
  52
  53
  54
  55
  56
  57