summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/g77/labug1.f
blob: d004f760ecb0d19b55431f8743e9996ba886c27c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
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