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
58