URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [labug1.f] - Rev 414
Go to most recent revision | Compare with Previous | Blame | View Log
c { dg-do run } PROGRAM LABUG1 * This program core dumps on mips-sgi-irix6.2 when compiled * with egcs-19981101, egcs-19981109 and egcs-19981122 snapshots * with -O2 * * Originally derived from LAPACK test suite. * Almost any change allows it to run. * * David Billinghurst, (David.Billinghurst@riotinto.com.au) * 25 November 1998 * * .. Parameters .. INTEGER LDA, LDE PARAMETER ( LDA = 2500, LDE = 50 ) COMPLEX CZERO PARAMETER ( CZERO = ( 0.0E+0, 0.0E+0 ) ) INTEGER I, J, M, N REAL V COMPLEX A(LDA),B(LDA),C(LDA),E(LDE,LDE),F(LDE,LDE) COMPLEX Z N=2 M=1 * do i = 1, m do j = 1, n e(i,j) = czero f(i,j) = czero end do end do * DO J = 1, N DO I = 1, M V = ABS( E(I,J) - F(I,J) ) END DO END DO CALL SUB2(M,Z) END subroutine SUB2(I,A) integer i complex a end
Go to most recent revision | Compare with Previous | Blame | View Log