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