gcc/testsuite/gfortran.dg/g77/labug1.f

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