OSDN Git Service

* Replace tabs with spaces.
authorkargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 7 Mar 2005 04:49:36 +0000 (04:49 +0000)
committerkargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 7 Mar 2005 04:49:36 +0000 (04:49 +0000)
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@96009 138bc75d-0d04-0410-961f-82ee72b054a4

22 files changed:
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/g77/19990313-1.f
gcc/testsuite/gfortran.dg/g77/19990313-2.f
gcc/testsuite/gfortran.dg/g77/19990313-3.f
gcc/testsuite/gfortran.dg/g77/19990525-0.f
gcc/testsuite/gfortran.dg/g77/19990826-0.f
gcc/testsuite/gfortran.dg/g77/19990826-2.f
gcc/testsuite/gfortran.dg/g77/19990826-3.f
gcc/testsuite/gfortran.dg/g77/20000511-1.f
gcc/testsuite/gfortran.dg/g77/20000511-2.f
gcc/testsuite/gfortran.dg/g77/970625-2.f
gcc/testsuite/gfortran.dg/g77/980310-2.f
gcc/testsuite/gfortran.dg/g77/980310-3.f
gcc/testsuite/gfortran.dg/g77/980310-8.f
gcc/testsuite/gfortran.dg/g77/980519-2.f
gcc/testsuite/gfortran.dg/g77/alpha1.f
gcc/testsuite/gfortran.dg/g77/claus.f
gcc/testsuite/gfortran.dg/g77/erfc.f
gcc/testsuite/gfortran.dg/g77/short.f
gcc/testsuite/gfortran.fortran-torture/execute/data.f90
gcc/testsuite/gfortran.fortran-torture/execute/integer_select.f90
gcc/testsuite/gfortran.fortran-torture/execute/integer_select_1.f90

index e4a3c77..1abdca1 100644 (file)
@@ -1,3 +1,27 @@
+2005-03-06  Steven G. Kargl  <kargls@comcast.net>
+
+       * gfortran.dg/g77/19990313-1.f: Replace tabs with spaces.
+       * gfortran.dg/g77/19990313-2.f: ditto
+       * gfortran.dg/g77/19990313-3.f: ditto
+       * gfortran.dg/g77/19990525-0.f: ditto
+       * gfortran.dg/g77/19990826-0.f: ditto
+       * gfortran.dg/g77/19990826-2.f: ditto
+       * gfortran.dg/g77/19990826-3.f: ditto
+       * gfortran.dg/g77/20000511-1.f: ditto
+       * gfortran.dg/g77/20000511-2.f: ditto
+       * gfortran.dg/g77/970625-2.f: ditto
+       * gfortran.dg/g77/980310-2.f: ditto
+       * gfortran.dg/g77/980310-3.f: ditto
+       * gfortran.dg/g77/980310-8.f: ditto
+       * gfortran.dg/g77/980519-2.f: ditto
+       * gfortran.dg/g77/alpha1.f: ditto
+       * gfortran.dg/g77/claus.f: ditto
+       * gfortran.dg/g77/erfc.f: ditto
+       * gfortran.dg/g77/short.f: ditto
+       * gfortran.fortran-torture/execute/data.f90: ditto
+       * gfortran.fortran-torture/execute/integer_select.f90: ditto
+       * gfortran.fortran-torture/execute/integer_select_1.f90: ditto
+
 2005-03-06  John David Anglin  <dave.anglin@nrc-cnrc.gc.ca>
 
        * lib/file-format.exp (gcc_target_object_format): Add check for som
@@ -19,8 +43,8 @@
 2005-03-05  Steven G. Kargl  <kargls@comcast.net> 
             Paul Thomas <prthomas@drfccad.cea.fr>
 
-       * PR19754_1.f90: New test.
-       * PR19754_2.f90: ditto.
+       * gfortran.dg/PR19754_1.f90: New test.
+       * gfortran.dg/PR19754_2.f90: ditto.
 
 2005-03-05  Kriang Lerdsuwanakij  <lerdsuwa@users.sourceforge.net>
 
index b229bb4..db4be77 100644 (file)
@@ -1,6 +1,6 @@
 c { dg-do run }
         integer *8 foo, bar
-       double precision r
+        double precision r
         data r/4d10/
         foo = 4d10
         bar = r
index 5dac2d0..edd5afd 100644 (file)
@@ -1,6 +1,6 @@
 c { dg-do run }
        integer *8 foo, bar
-       complex c
+       complex c
         data c/(4e10,0)/
         foo = 4e10
         bar = c
index c7489f6..c14beb9 100644 (file)
@@ -1,6 +1,6 @@
 c { dg-do run }
         integer *8 foo, bar
-       double complex c
+        double complex c
         data c/(4d10,0)/
         foo = 4d10
         bar = c
index 0baa802..589fb8e 100644 (file)
@@ -15,24 +15,24 @@ c { dg-do compile }
 * 
 * Run the following through g77:
 * 
-       subroutine      a
-       character*2     string1
-       character*2     string2
-       character*4     string3
-       string1 = 's1'
-       string2 = 's2'
+      subroutine a
+      character*2 string1
+      character*2 string2
+      character*4 string3
+      string1 = 's1'
+      string2 = 's2'
 c
 c the next 2 lines are ok.
-       string3 = (string1 // string2)
-       call b(string1//string2)
+      string3 = (string1 // string2)
+      call b(string1//string2)
 c
 c this line gives gcc/f/com.c:10660: failed assertion `hook'
-       call b((string1//string2))
-       end
+      call b((string1//string2))
+      end
 * 
 * the output from:
 * 
-*      /usr/local/egcs-19990418/bin/g77 --verbose -c D.f
+* /usr/local/egcs-19990418/bin/g77 --verbose -c D.f
 * 
 * is:
 * 
index 054f9ab..bc471f0 100644 (file)
@@ -16,5 +16,5 @@ c { dg-do run }
 * It seems to work fine if I change it to the generic NINT().  Probably
 * a name pollution problem in the new C library, but it seems bad. no?
 
-*      Thanks,
-*      Rick Niles.
+* Thanks,
+* Rick Niles.
index 8f0f0c1..b8384f8 100644 (file)
@@ -1,7 +1,7 @@
 c { dg-do run }
 * From: "Billinghurst, David (RTD)" <David.Billinghurst@riotinto.com.au>
 * Subject: RE: single precision complex bug in g77 - was Testing g77 with LA
-*      PACK 3.0
+* PACK 3.0
 * Date: Thu, 8 Jul 1999 00:55:11 +0100 
 * X-UIDL: b00d9d8081a36fef561b827d255dd4a5
 
index aeaf443..dba24be 100644 (file)
@@ -28,294 +28,293 @@ c { dg-do compile }
 * See <URL:http://egcs.cygnus.com/faq.html#bugreport> for instructions.
 
 C* PCAPOP
-       SUBROUTINE PCAPOP(M1,M2,L1,L2,NMEM,N1,N2,IB,IBB,K3,TF,TS,TC,TTO)
-       DIMENSION NVA(6),C(6),I(6)
+      SUBROUTINE PCAPOP(M1,M2,L1,L2,NMEM,N1,N2,IB,IBB,K3,TF,TS,TC,TTO)
+      DIMENSION NVA(6),C(6),I(6)
 C
 C CALCUL DES PARAMETRES OPTIMAUX N1 N2 IB IBB
 C
-       TACC=.035
-       TTRANS=.000004
-       RAD=.000001
-       RMI=.000001
-       RMU=.0000015
-       RDI=.000003
-       RTE=.000003
-       REQ=.000005
-       VY1=3*RTE+RDI+8*REQ+3*(RAD+RMI+RMU)
-       VY2=REQ+2*RAD
-       AR2=M2*(2*(REQ+RMI)+3*RMU+M1*(2*RAD+REQ))
+      TACC=.035
+      TTRANS=.000004
+      RAD=.000001
+      RMI=.000001
+      RMU=.0000015
+      RDI=.000003
+      RTE=.000003
+      REQ=.000005
+      VY1=3*RTE+RDI+8*REQ+3*(RAD+RMI+RMU)
+      VY2=REQ+2*RAD
+      AR2=M2*(2*(REQ+RMI)+3*RMU+M1*(2*RAD+REQ))
 C     VARIATION DE L1,L2,
 C
-       TTOTOP=1.E+10
-       N1CO=0
-       N2CO=0
-       IBCO=0
-       IBBCO=0
-       K3CO=0
-       TESOP=0.
-       TCOP=0.
-       TFOP=0.
-        INUN=7
-        INDE=7
-        IF(M1.LT.128)INUN=6
-        IF(M1.LT.64)INUN=5
-        IF(M1.LT.32)INUN=4
-        IF(M2.LT.128)INDE=6
-        IF(M2.LT.64)INDE=5
-        IF(M2.LT.32)INDE=4
-       DO 3 NUN =3,INUN
-       DO 3 NDE=3,INDE
-       N10=2**NUN
-       N20=2**NDE
-       NDIF=(N10-N20)
-       NDIF=IABS(NDIF)
+      TTOTOP=1.E+10
+      N1CO=0
+      N2CO=0
+      IBCO=0
+      IBBCO=0
+      K3CO=0
+      TESOP=0.
+      TCOP=0.
+      TFOP=0.
+      INUN=7
+      INDE=7
+      IF(M1.LT.128)INUN=6
+      IF(M1.LT.64)INUN=5
+      IF(M1.LT.32)INUN=4
+      IF(M2.LT.128)INDE=6
+      IF(M2.LT.64)INDE=5
+      IF(M2.LT.32)INDE=4
+      DO 3 NUN =3,INUN
+      DO 3 NDE=3,INDE
+      N10=2**NUN
+      N20=2**NDE
+      NDIF=(N10-N20)
+      NDIF=IABS(NDIF)
 C POUR AVOIR CES RESULTATS FAIRE TOURNER LE PROGRAMME VEFFT1
-        TCFFTU=0.
-       IF(N10.EQ.128.AND.N20.EQ.128)TCFFTU=3.35
-       IF(N10.EQ.64.AND.N20.EQ.64)TCFFTU=.70
-       IF(N10.EQ.32.AND.N20.EQ.32)TCFFTU=.138
-       IF(N10.EQ.16.AND.N20.EQ.16)TCFFTU=.0332
-       IF(N10.EQ.8.AND.N20.EQ.8)TCFFTU=.00688
-       IF(NDIF.EQ.64)TCFFTU=1.566
-       IF(NDIF.EQ.96)TCFFTU=.709
-       IF(NDIF.EQ.112)TCFFTU=.349
-       IF(NDIF.EQ.120)TCFFTU=.160
-       IF(NDIF.EQ.32)TCFFTU=.315
-       IF(NDIF.EQ.48)TCFFTU=.154
-       IF(NDIF.EQ.56)TCFFTU=.07
-       IF(NDIF.EQ.16)TCFFTU=.067
-       IF(NDIF.EQ.24)TCFFTU=.030
-       IF(NDIF.EQ.8)TCFFTU=.016
-       N30=N10-L1+1
-       N40=N20-L2+1
-       WW=VY1+N30*VY2
-       NDOU=2*N10*N20
-       IF((N10.LT.L1).OR.(N20.LT.L2)) GOTO 3
-       NB=NMEM-NDOU-N20*(L1-1)
-       NVC=2*N10*(N20-1)+M1
-       IF(NB.LT.(NVC)) GOTO 3
-       CALL VALENT(M1,N30,K1)
-       CALL VALENT(M2,N40,K2)
-       IS=K1/2
-       IF((2*IS).NE.K1)K1=K1+1
-           TFF=TCFFTU*K1*K2
-       CALL VALENT(M2,N40,JOFI)
-       IF(NB.GE.(K1*N20*N30+2*N20*(L1-1))) GOTO 4
-       TIOOP=1.E+10
-       IC=1
+      TCFFTU=0.
+      IF(N10.EQ.128.AND.N20.EQ.128)TCFFTU=3.35
+      IF(N10.EQ.64.AND.N20.EQ.64)TCFFTU=.70
+      IF(N10.EQ.32.AND.N20.EQ.32)TCFFTU=.138
+      IF(N10.EQ.16.AND.N20.EQ.16)TCFFTU=.0332
+      IF(N10.EQ.8.AND.N20.EQ.8)TCFFTU=.00688
+      IF(NDIF.EQ.64)TCFFTU=1.566
+      IF(NDIF.EQ.96)TCFFTU=.709
+      IF(NDIF.EQ.112)TCFFTU=.349
+      IF(NDIF.EQ.120)TCFFTU=.160
+      IF(NDIF.EQ.32)TCFFTU=.315
+      IF(NDIF.EQ.48)TCFFTU=.154
+      IF(NDIF.EQ.56)TCFFTU=.07
+      IF(NDIF.EQ.16)TCFFTU=.067
+      IF(NDIF.EQ.24)TCFFTU=.030
+      IF(NDIF.EQ.8)TCFFTU=.016
+      N30=N10-L1+1
+      N40=N20-L2+1
+      WW=VY1+N30*VY2
+      NDOU=2*N10*N20
+      IF((N10.LT.L1).OR.(N20.LT.L2)) GOTO 3
+      NB=NMEM-NDOU-N20*(L1-1)
+      NVC=2*N10*(N20-1)+M1
+      IF(NB.LT.(NVC)) GOTO 3
+      CALL VALENT(M1,N30,K1)
+      CALL VALENT(M2,N40,K2)
+      IS=K1/2
+      IF((2*IS).NE.K1)K1=K1+1
+      TFF=TCFFTU*K1*K2
+      CALL VALENT(M2,N40,JOFI)
+      IF(NB.GE.(K1*N20*N30+2*N20*(L1-1))) GOTO 4
+      TIOOP=1.E+10
+      IC=1
 18    IB1=2*IC
-       MAX=(NB-2*N20*(L1-1))/(N20*N30)
-       IN=MAX/2
-       IF(MAX.NE.2*IN) MAX=MAX-1
-       K3=K1/IB1
-       IBB1=K1-K3*IB1
-       IOFI=M1/(IB1*N30)
-       IRZ=0
-       IF(IOFI*IB1*N30.EQ.M1) GOTO1234
-       IRZ=1
-       IOFI=IOFI+1
-       IF(IBB1.EQ.0) GOTO 1234
-       IF(M1.EQ.((IOFI-1)*IB1*N30+IBB1*N30)) GOTO 1233
-       IRZ=2
-       GOTO 1234
+      MAX=(NB-2*N20*(L1-1))/(N20*N30)
+      IN=MAX/2
+      IF(MAX.NE.2*IN) MAX=MAX-1
+      K3=K1/IB1
+      IBB1=K1-K3*IB1
+      IOFI=M1/(IB1*N30)
+      IRZ=0
+      IF(IOFI*IB1*N30.EQ.M1) GOTO1234
+      IRZ=1
+      IOFI=IOFI+1
+      IF(IBB1.EQ.0) GOTO 1234
+      IF(M1.EQ.((IOFI-1)*IB1*N30+IBB1*N30)) GOTO 1233
+      IRZ=2
+      GOTO 1234
 1233  IRZ=3
 1234  IBX1=IBB1
-       IF(IBX1.EQ.0)IBX1=IB1
-       AR1=M2*(2*(RAD+RMI+RMU+REQ)+(M1-(IOFI-1)*IB1*N30)*2*(REQ+RAD))
+      IF(IBX1.EQ.0)IBX1=IB1
+      AR1=M2*(2*(RAD+RMI+RMU+REQ)+(M1-(IOFI-1)*IB1*N30)*2*(REQ+RAD))
      %+M2*(3*(REQ+RMU+RAD)+4*RMI+(M1-(IOFI-1)*IB1*N30)*(2*RAD+REQ)
      %+(IOFI-1)*IB1*N30*(2*RMI+REQ+RAD))
-       AR5=(JOFI-1)*(N20-L2)*(M1-(IOFI-1)*IB1*N30)*(2*(RAD+RMU)+REQ)
+      AR5=(JOFI-1)*(N20-L2)*(M1-(IOFI-1)*IB1*N30)*(2*(RAD+RMU)+REQ)
      %*IOFI+(M2-(JOFI-1)*N40+L2-2)*(M1-(IOFI-1)*IB1*N30)*(2*(RAD+RMU
      %)+REQ)*IOFI
-       WQ=((IOFI-1)*IB1+IBX1)*JOFI*WW
-       AT1=N20*WQ
-       AT2=N40*WQ
-       QW=JOFI*(VY1+VY2*IB1*N30)
-       AT3=IOFI*N40*QW
-       AT4=(IOFI-1)*N40*QW
-       AT5=JOFI*((IOFI-1)*N40*(IB1/IBX1)*(VY1+IBX1*N30*VY2)
+      WQ=((IOFI-1)*IB1+IBX1)*JOFI*WW
+      AT1=N20*WQ
+      AT2=N40*WQ
+      QW=JOFI*(VY1+VY2*IB1*N30)
+      AT3=IOFI*N40*QW
+      AT4=(IOFI-1)*N40*QW
+      AT5=JOFI*((IOFI-1)*N40*(IB1/IBX1)*(VY1+IBX1*N30*VY2)
      %+N40*((IB1/IBX1)*(IOFI-1)+1)*(VY1+IBX1*N30*VY2))
-       AT6=JOFI*((IOFI-1)*N40*(IB1/2)*(VY1+2*N30*VY2)+N40*(
+      AT6=JOFI*((IOFI-1)*N40*(IB1/2)*(VY1+2*N30*VY2)+N40*(
      %IB1*(IOFI-1)/2+IBX1/2)*(VY1+2*N30*VY2))
-       T1=JOFI*N20*(L1-1)*REQ
-       T2=M1*(L2-1)*REQ
-       T3=JOFI*N20*IBX1*N30*(RAD+REQ)
-       T4=JOFI*((IOFI-1)*IB1*N30*N20*(2*RMI+REQ)+IBX1*N30*N20*(2*RMI+R
+      T1=JOFI*N20*(L1-1)*REQ
+      T2=M1*(L2-1)*REQ
+      T3=JOFI*N20*IBX1*N30*(RAD+REQ)
+      T4=JOFI*((IOFI-1)*IB1*N30*N20*(2*RMI+REQ)+IBX1*N30*N20*(2*RMI+R
      %EQ))
-       T5=JOFI*((IOFI-1)*IB1/2+IBX1/2)*N20*N30*(2*RAD+REQ)
-       T6=2*JOFI*(((IOFI-1)*IB1+IBX1)*N20)*((5*(RMI+RMU)+4*RAD
+      T5=JOFI*((IOFI-1)*IB1/2+IBX1/2)*N20*N30*(2*RAD+REQ)
+      T6=2*JOFI*(((IOFI-1)*IB1+IBX1)*N20)*((5*(RMI+RMU)+4*RAD
      %)+(L1-1)*(2*RAD+REQ)+N30*(2*RAD+REQ))
-       T7=JOFI*2*((IOFI-1)*IB1+IBX1)*(L1-1)*(2*RAD+REQ)
-       T8=JOFI*N10*N20*((IOFI-1)*IB1/2+IBX1/2)*(3*REQ+9*RAD+4*RMU+RMI)
-       T9=N10*N20*JOFI*((IOFI-1)*IB1/2+IBX1/2)*(REQ+RMI)+M1*M2*(REQ+R
+      T7=JOFI*2*((IOFI-1)*IB1+IBX1)*(L1-1)*(2*RAD+REQ)
+      T8=JOFI*N10*N20*((IOFI-1)*IB1/2+IBX1/2)*(3*REQ+9*RAD+4*RMU+RMI)
+      T9=N10*N20*JOFI*((IOFI-1)*IB1/2+IBX1/2)*(REQ+RMI)+M1*M2*(REQ+R
      %DI+2*RAD)
-       T10=JOFI*((IOFI-1)*IB1/2+IBX1/2)*2*(3*RMU+2*(RMI+RAD)+N40*(3*RMI
+      T10=JOFI*((IOFI-1)*IB1/2+IBX1/2)*2*(3*RMU+2*(RMI+RAD)+N40*(3*RMI
      %+4*RMU+3*(RAD+REQ)+N30*(2*RAD+REQ)))
-       POI=JOFI
-       IF(POI.LE.2)POI=2
-       TNRAN=(N40+(POI-2)*N20+(M2-(JOFI-1)*N40+L2-1))*(RMI+RMU+RAD
+      POI=JOFI
+      IF(POI.LE.2)POI=2
+      TNRAN=(N40+(POI-2)*N20+(M2-(JOFI-1)*N40+L2-1))*(RMI+RMU+RAD
      %+REQ+N30*(2*RAD+2*REQ)*(IB1*(IOFI-1)+IBX1))
-       IF(TNRAN.LT.0.)TNRAN=0.
-       TCPU=T1+T2+T3+T4+T5+T6+T7+T8+T9+T10+TNRAN
-       NVA(1)=N40
-       NVA(2)=N40
-       NVA(3)=N20
-       NVA(4)=N20
-       NVA(5)=M2-(JOFI-1)*N40
-       NVA(6)=NVA(5)
-       C(1)=FLOAT(IB1*N30)/FLOAT(M1)
-       C(2)=FLOAT(M1-(IOFI-1)*IB1*N30)/FLOAT(M1)
-       C(3)=C(1)
-       C(4)=C(2)
-       C(5)=C(1)
-       C(6)=C(2)
-       K=1
-       P1=FLOAT(NB)/FLOAT(M1)
+      IF(TNRAN.LT.0.)TNRAN=0.
+      TCPU=T1+T2+T3+T4+T5+T6+T7+T8+T9+T10+TNRAN
+      NVA(1)=N40
+      NVA(2)=N40
+      NVA(3)=N20
+      NVA(4)=N20
+      NVA(5)=M2-(JOFI-1)*N40
+      NVA(6)=NVA(5)
+      C(1)=FLOAT(IB1*N30)/FLOAT(M1)
+      C(2)=FLOAT(M1-(IOFI-1)*IB1*N30)/FLOAT(M1)
+      C(3)=C(1)
+      C(4)=C(2)
+      C(5)=C(1)
+      C(6)=C(2)
+      K=1
+      P1=FLOAT(NB)/FLOAT(M1)
 10    IP1=P1
-       I(K)=1
-       IF(IP1.GE.NVA(K)) GOTO 7
-       P2=P1
-       IP2=P2
+      I(K)=1
+      IF(IP1.GE.NVA(K)) GOTO 7
+      P2=P1
+      IP2=P2
 8     P2=P2-FLOAT(IP2)*C(K)
-       IP2=P2
-       IF(IP2.EQ.0) GOTO 3
-       IP1=IP1+IP2
-       I(K)=I(K)+1
-       IF(IP1.GE.NVA(K))GOTO 7
-       GOTO 8
+      IP2=P2
+      IF(IP2.EQ.0) GOTO 3
+      IP1=IP1+IP2
+      I(K)=I(K)+1
+      IF(IP1.GE.NVA(K))GOTO 7
+      GOTO 8
 7     IF(K.EQ.6) GOTO 11
-       K=K+1
-       GOTO 10
+      K=K+1
+      GOTO 10
 11    IP1=0
-       IP2=0
-       IP3=0
-       POFI=JOFI
-       IF(POFI.LE.2)POFI=2
-       TIOL=(I(2)+(IOFI-1)*I(1)+(POFI-2)*(IOFI-1)*I(3)+(POFI-
+      IP2=0
+      IP3=0
+      POFI=JOFI
+      IF(POFI.LE.2)POFI=2
+      TIOL=(I(2)+(IOFI-1)*I(1)+(POFI-2)*(IOFI-1)*I(3)+(POFI-
      %2)*I(4)+(IOFI-1)*I(5)+I(6))*TACC+(IOFI*M1*N40+(POFI-2)*IOFI*
      %M1*N20+(M2-(JOFI-1)*N40+L2-1)*M1*IOFI)*TTRANS
-       IF(IBB1.EQ.0) GOTO 33
-       IF(IB1.EQ.IBB1) GOTO 33
-       IF(IBB1.EQ.2)GOTO 34
-       IP3=1
-       INL=NMEM/((IOFI-1)*IB1*N30+IBB1*N30)
+      IF(IBB1.EQ.0) GOTO 33
+      IF(IB1.EQ.IBB1) GOTO 33
+      IF(IBB1.EQ.2)GOTO 34
+      IP3=1
+      INL=NMEM/((IOFI-1)*IB1*N30+IBB1*N30)
 55    IF(INL.GT.N40)INL=N40
-       GOTO 35
+      GOTO 35
 33    IF(IB1.GT.2) GOTO 36
-       IF((M1-(IOFI-1)*IB1*N30).GE.N30) GOTO 36
+      IF((M1-(IOFI-1)*IB1*N30).GE.N30) GOTO 36
 34    IP1=1
-       INL=NMEM/(2*M1-(IOFI-1)*IB1*N30)
-       GOTO 55
+      INL=NMEM/(2*M1-(IOFI-1)*IB1*N30)
+      GOTO 55
 36    IP2=1
-       INL=NMEM/(IOFI*IB1*N30)
-       IF(INL.GT.N40)INL=N40
+      INL=NMEM/(IOFI*IB1*N30)
+      IF(INL.GT.N40)INL=N40
 35    CALL VALENT(N40,INL,KN1)
-       CALL VALENT(M2-(JOFI-1)*N40,INL,KN2)
-       CALL VALENT(INL*IBB1,IB1,KN3)
-       CALL VALENT((N40-(KN1-1)*INL)*IBB1,IB1,KN4)
-       IF((IP1+IP2+IP3).NE.1) CALL ERMESF(14)
-       TIO1=0.
-       IF(IP3.EQ.1)TIO1=N30*M2*TTRANS*(IB1*(IOFI-1)+IBB1)
-       IF(IP1.EQ.1)TIO1=M1*M2*TTRANS
-       IF(IP2.EQ.1) TIO1=(IB1*N30*M2*IOFI*TTRANS)
-       TTIO=2.*TIO1+(KN1*IOFI*(JOFI-1)+KN2*IOFI+(KN1-1)*(
+      CALL VALENT(M2-(JOFI-1)*N40,INL,KN2)
+      CALL VALENT(INL*IBB1,IB1,KN3)
+      CALL VALENT((N40-(KN1-1)*INL)*IBB1,IB1,KN4)
+      IF((IP1+IP2+IP3).NE.1) CALL ERMESF(14)
+      TIO1=0.
+      IF(IP3.EQ.1)TIO1=N30*M2*TTRANS*(IB1*(IOFI-1)+IBB1)
+      IF(IP1.EQ.1)TIO1=M1*M2*TTRANS
+      IF(IP2.EQ.1) TIO1=(IB1*N30*M2*IOFI*TTRANS)
+      TTIO=2.*TIO1+(KN1*IOFI*(JOFI-1)+KN2*IOFI+(KN1-1)*(
      %JOFI-1)+IOFI*(JOFI-1)+KN2-1.+IOFI+(KN1*(JOFI-1)+KN2))*TACC
      %+M1*M2*TTRANS+TIOL
-       IF((IP1.EQ.1).AND.(IRZ.EQ.0))TCPU=TCPU+AT1+AT2+AT3
-       IF((IP1.EQ.1).AND.(IRZ.NE.0))TCPU=TCPU+AT1+AT2+AT4+AR1
-       IF((IP2.EQ.1).AND.(IRZ.EQ.0))TCPU=TCPU+AT1+AT2+AT3
-       IF((IP2.EQ.1).AND.(IRZ.NE.0))TCPU=TCPU+AT1+AT2+AT3+AR2
-       IFOIS=IB1/IBX1
-       IF((IP3.EQ.1).AND.(IFOIS*IBX1.EQ.IB1))TCPU=TCPU+AT1+AT2+AT5+AR2
-       IF((IP3.EQ.1).AND.(IFOIS*IBX1.NE.IB1))TCPU=TCPU+AT1+AT2+AT6+AR2
-       IF((IP1.EQ.1).AND.(IRZ.EQ.1))TCPU=TCPU+AR5
-       IF((IP1.EQ.1).AND.(IRZ.EQ.2))TCPU=TCPU+AR5
-       TTIOG=TTIO+TCPU
-       IF(TTIOG.LE.0.) GOTO 99
-       IF(TTIOG.GE.TIOOP) GOTO 99
-       IBOP=IB1
-       IBBOP=IBB1
-       K3OP=K3
-       TIOOP=TTIOG
-       TIOOP1=TTIO
-       TIOOP2=TCPU
+      IF((IP1.EQ.1).AND.(IRZ.EQ.0))TCPU=TCPU+AT1+AT2+AT3
+      IF((IP1.EQ.1).AND.(IRZ.NE.0))TCPU=TCPU+AT1+AT2+AT4+AR1
+      IF((IP2.EQ.1).AND.(IRZ.EQ.0))TCPU=TCPU+AT1+AT2+AT3
+      IF((IP2.EQ.1).AND.(IRZ.NE.0))TCPU=TCPU+AT1+AT2+AT3+AR2
+      IFOIS=IB1/IBX1
+      IF((IP3.EQ.1).AND.(IFOIS*IBX1.EQ.IB1))TCPU=TCPU+AT1+AT2+AT5+AR2
+      IF((IP3.EQ.1).AND.(IFOIS*IBX1.NE.IB1))TCPU=TCPU+AT1+AT2+AT6+AR2
+      IF((IP1.EQ.1).AND.(IRZ.EQ.1))TCPU=TCPU+AR5
+      IF((IP1.EQ.1).AND.(IRZ.EQ.2))TCPU=TCPU+AR5
+      TTIOG=TTIO+TCPU
+      IF(TTIOG.LE.0.) GOTO 99
+      IF(TTIOG.GE.TIOOP) GOTO 99
+      IBOP=IB1
+      IBBOP=IBB1
+      K3OP=K3
+      TIOOP=TTIOG
+      TIOOP1=TTIO
+      TIOOP2=TCPU
 99    IF(IB1.GE.MAX)GOTO17
-       IC=IC+1
-       GOTO 18
+      IC=IC+1
+      GOTO 18
 4     T1=JOFI*N20*(L1-1)*REQ
-       T2=M1*(L2-1)*REQ
-       T3=JOFI*N20*N30*(RAD+REQ)*K1
-       T4=JOFI*(K1*N30*N20*(2*RMI+REQ))
-       T5=JOFI*N20*N30*(2*RAD+REQ)*K1/2
-       T6=2*JOFI*(K1*N20)*((5*RMI+RMU)+4*RAD+(L1-1)*(2*RAD+REQ)+N30*2*
+      T2=M1*(L2-1)*REQ
+      T3=JOFI*N20*N30*(RAD+REQ)*K1
+      T4=JOFI*(K1*N30*N20*(2*RMI+REQ))
+      T5=JOFI*N20*N30*(2*RAD+REQ)*K1/2
+      T6=2*JOFI*(K1*N20)*((5*RMI+RMU)+4*RAD+(L1-1)*(2*RAD+REQ)+N30*2*
      %RAD+REQ)
-       T7=JOFI*2*K1*(L1-1)*(2*RAD+REQ)
-       T9=JOFI*N10*N20*K1*(REQ+RMI)/2+M1*M2*(REQ+RDI+2*RAD)
-       T8=JOFI*N10*N20*K1*(3*REQ+9*RAD+4*RMU+RMI)/2
-       T10=JOFI*K1*(3*RMU+2*(RMI+RAD)+N40*(3*RMI
+      T7=JOFI*2*K1*(L1-1)*(2*RAD+REQ)
+      T9=JOFI*N10*N20*K1*(REQ+RMI)/2+M1*M2*(REQ+RDI+2*RAD)
+      T8=JOFI*N10*N20*K1*(3*REQ+9*RAD+4*RMU+RMI)/2
+      T10=JOFI*K1*(3*RMU+2*(RMI+RAD)+N40*(3*RMI
      %+4*RMU+3*(RAD+REQ)+N30*(2*RAD+REQ)))
-       PIO=JOFI
-       IF(PIO.LE.2)PIO=2
-       TNR=(N40+(PIO-2)*N20+(M2-(JOFI-1)*N40+L2-1))*(RMU+RMI+RAD+REQ+
+      PIO=JOFI
+      IF(PIO.LE.2)PIO=2
+      TNR=(N40+(PIO-2)*N20+(M2-(JOFI-1)*N40+L2-1))*(RMU+RMI+RAD+REQ+
      %N30*(2*RAD+2*REQ)*K1)
-       IF(TNR.LE.0.)TNR=0.
-       BT1=JOFI*N20*WW*K1
-       BT2=JOFI*N40*WW*K1
-       BT3=JOFI*N40*(VY1+K1*N30*VY2)
-       BR1=M2*(2*(RAD+RMI+RMU+REQ)+(M1*2*(REQ+RAD)))+M2*(3*(
+      IF(TNR.LE.0.)TNR=0.
+      BT1=JOFI*N20*WW*K1
+      BT2=JOFI*N40*WW*K1
+      BT3=JOFI*N40*(VY1+K1*N30*VY2)
+      BR1=M2*(2*(RAD+RMI+RMU+REQ)+(M1*2*(REQ+RAD)))+M2*(3*(
      $REQ+RAD+RMU)+4*(RMI)+M1*(2*(RAD)+REQ))
-       BR2=M2*(2*(REQ+RMI)+3*RMU+M1*(2*RAD+REQ))
-       TCPU=T1+T2+T3+T4+T5+T6+T7+T8+T9+T10
-       TCPU=TCPU+TNR+BT1+BT2
-       LIOF=M1/(N30)
-       IRZ=0
-       IF(LIOF*N30.EQ.M1) GOTO 2344
-       IRZ=1
+      BR2=M2*(2*(REQ+RMI)+3*RMU+M1*(2*RAD+REQ))
+      TCPU=T1+T2+T3+T4+T5+T6+T7+T8+T9+T10
+      TCPU=TCPU+TNR+BT1+BT2
+      LIOF=M1/(N30)
+      IRZ=0
+      IF(LIOF*N30.EQ.M1) GOTO 2344
+      IRZ=1
 2344  IF(IRZ.EQ.0)TCPU=TCPU+BT3
-       IF(IRZ.NE.0)TCPU=TCPU+BT3+BR2
-       TIOOP=2.*FLOAT(M1)*FLOAT(M2)*TTRANS+2.*FLOAT(K2)*TACC+TCPU
-       IBOP=1
-       IBBOP=0
-       K3OP=1
-       TIOOP2=TCPU
-       TIOOP1=TIOOP-TCPU
+      IF(IRZ.NE.0)TCPU=TCPU+BT3+BR2
+      TIOOP=2.*FLOAT(M1)*FLOAT(M2)*TTRANS+2.*FLOAT(K2)*TACC+TCPU
+      IBOP=1
+      IBBOP=0
+      K3OP=1
+      TIOOP2=TCPU
+      TIOOP1=TIOOP-TCPU
 17    TTOT=TIOOP+TFF
-       IF(TTOT.LE.0.) GOTO 3
-       IF(TTOT.GE.TTOTOP)GOTO3
-       N1CO=N10
-       N2CO=N20
-       IBCO=IBOP
-       IBBCO=IBBOP
-       K3CO=K3OP
-       TTOTOP=TTOT
-       TESOP=TIOOP1
-       TCOP=TIOOP2
-       TFOP=TFF
+      IF(TTOT.LE.0.) GOTO 3
+      IF(TTOT.GE.TTOTOP)GOTO3
+      N1CO=N10
+      N2CO=N20
+      IBCO=IBOP
+      IBBCO=IBBOP
+      K3CO=K3OP
+      TTOTOP=TTOT
+      TESOP=TIOOP1
+      TCOP=TIOOP2
+      TFOP=TFF
 3     CONTINUE
  
-C
-       N1=N1CO
-       N2=N2CO
-       TTO=TTOTOP
-       IB=IBCO
-       IBB=IBBCO
-       K3=K3CO
-       TC=TCOP
-       TS=TESOP
-       TF=TFOP
-          TT=TCOP+TFOP
-         TWER=TTO-TT
-       IF(N1.EQ.0.OR.N2.EQ.0) CALL OUTSTR(0,'PAS DE PLACE MEMOIRE SUFFISA
+      N1=N1CO
+      N2=N2CO
+      TTO=TTOTOP
+      IB=IBCO
+      IBB=IBBCO
+      K3=K3CO
+      TC=TCOP
+      TS=TESOP
+      TF=TFOP
+      TT=TCOP+TFOP
+      TWER=TTO-TT
+      IF(N1.EQ.0.OR.N2.EQ.0) CALL OUTSTR(0,'PAS DE PLACE MEMOIRE SUFFISA
      $NTE POUR UNE MISE EN OEUVRE PAR BLOCS$')
-        IF(IB.NE.1)RETURN
-        IHJ=(M1/(N1-L1+1))
-        IF(IHJ*(N1-L1+1).NE.M1)IHJ=IHJ+1
-         IHJ1=IHJ/2
-        IF(IHJ1*2.NE.IHJ)GOTO7778
-        IB=IHJ
-        IBB=0
-           RETURN
-7778   IB=IHJ+1
-        IBB=0
-          RETURN
-        END
+      IF(IB.NE.1)RETURN
+      IHJ=(M1/(N1-L1+1))
+      IF(IHJ*(N1-L1+1).NE.M1)IHJ=IHJ+1
+      IHJ1=IHJ/2
+      IF(IHJ1*2.NE.IHJ)GOTO7778
+      IB=IHJ
+      IBB=0
+      RETURN
+7778  IB=IHJ+1
+      IBB=0
+      RETURN
+      END
index fca4bf9..261b6a0 100644 (file)
@@ -14,9 +14,9 @@ C  -ffast-math ICE provoked by this conditional
 C
 C        code for both increments equal to 1
 C
-             do i= 1,n
-               sy(i)= sy(i)+sa*sx(i)
-               enddo
-       endif
+         do i= 1,n
+           sy(i)= sy(i)+sa*sx(i)
+         enddo
+      endif
       return
       end
index b3a3ca3..1ae24ae 100644 (file)
@@ -47,16 +47,16 @@ C           Multiply by inv(L).
 C
       do j= 1,n-1
 C the following min() intrinsic provokes this bug
-         lm= min(kl,n-j)
-         jp= ipiv(j)
-         t= work(jp)
-         if(jp.ne.j)then
+         lm= min(kl,n-j)
+         jp= ipiv(j)
+         t= work(jp)
+         if(jp.ne.j)then
 C but only when combined with this if block
-             work(jp)= work(j)
-             work(j)= t
-           endif
+            work(jp)= work(j)
+            work(j)= t
+         endif
 C and this subroutine call
-         call saxpy(lm,-t,ab(kd+1,j),1,work(j+1),1)
-       enddo
+         call saxpy(lm,-t,ab(kd+1,j),1,work(j+1),1)
+      enddo
       return
       end
index 53a4b23..c77a2b5 100644 (file)
@@ -5,7 +5,7 @@
 * Subject: Re: testing 970624.
 * In-Reply-To: <199706251027.GAA07892@churchy.gnu.ai.mit.edu>
 * References: <199706251018.MAA21538@nu>
-*      <199706251027.GAA07892@churchy.gnu.ai.mit.edu>
+* <199706251027.GAA07892@churchy.gnu.ai.mit.edu>
 * X-Mailer: VM 6.30 under Emacs 19.34.1
 * Content-Type: text/plain; charset=US-ASCII
 * 
@@ -24,7 +24,7 @@
 * 
 * Regards,
 * -- 
-* =====       R.Hooft@EuroMail.com   http://www.Sander.EMBL-Heidelberg.DE/rob/ ==
+* ===== R.Hooft@EuroMail.com   http://www.Sander.EMBL-Heidelberg.DE/rob/ ==
 * ==== In need of protein modeling?  http://www.Sander.EMBL-Heidelberg.DE/whatif/
 * Validation of protein structures?  http://biotech.EMBL-Heidelberg.DE:8400/ ====
 * == PGPid 0xFA19277D == Use Linux!  Free Software Rules The World! =============
index 829706a..1ed5efc 100644 (file)
@@ -33,12 +33,12 @@ C doesn't exist in the g77 runtime)
 C 
 C RND - Return a random integer mod n
 C
-       INTEGER FUNCTION RND (N)
-       IMPLICIT INTEGER (A-Z)
-       REAL RAND
-       COMMON /SEED/ RNSEED
+      INTEGER FUNCTION RND (N)
+      IMPLICIT INTEGER (A-Z)
+      REAL RAND
+      COMMON /SEED/ RNSEED
 
-       RND = RAND(RNSEED)*FLOAT(N)
-       RETURN
+      RND = RAND(RNSEED)*FLOAT(N)
+      RETURN
 
-       END
+      END
index e7e9523..5656023 100644 (file)
@@ -1,9 +1,9 @@
 c { dg-do compile }
 c
-c      This demonstrates a problem with g77 and pic on x86 where 
-c      egcs 1.0.1 and earlier will generate bogus assembler output.
-c      unfortunately, gas accepts the bogus acssembler output and 
-c      generates code that almost works.
+c This demonstrates a problem with g77 and pic on x86 where 
+c egcs 1.0.1 and earlier will generate bogus assembler output.
+c unfortunately, gas accepts the bogus acssembler output and 
+c generates code that almost works.
 c
 
 
index bafb470..c20f2d7 100644 (file)
@@ -4,19 +4,20 @@ C Subject: egcs-g77 and array indexing
 C Reply-To: etseidl@jutland.ca.sandia.gov
 C Date: Wed, 26 Nov 1997 10:38:27 -0800
 C From: Edward Seidl <etseidl@jutland.ca.sandia.gov>
-C      
-C      I have some horrible spaghetti code I'm trying compile with egcs-g77,
-C      but it's puking on code like the example below.  I have no idea if it's
-C      legal fortran or not, and I'm in no position to change it.  All I do know
-C      is it compiles with a number of other compilers, including f2c and
-C      g77-0.5.19.1/gcc-2.7.2.1.  When I try to compile with egcs-2.90.18 971122
-C      I get the following (on both i686-pc-linux-gnu and alphaev56-unknown-linux-gnu):
-C      
-C      foo.f: In subroutine `foobar':
-C      foo.f:11: 
-C               subroutine foobar(norb,nnorb)
-C                                 ^
-C      Array `norb' at (^) is too large to handle
+C
+C I have some horrible spaghetti code I'm trying compile with egcs-g77,
+C but it's puking on code like the example below.  I have no idea if it's
+C legal fortran or not, and I'm in no position to change it.  All I do know
+C is it compiles with a number of other compilers, including f2c and
+C g77-0.5.19.1/gcc-2.7.2.1.  When I try to compile with egcs-2.90.18 971122
+C I get the following (on both i686-pc-linux-gnu and
+C alphaev56-unknown-linux-gnu):
+C
+Cfoo.f: In subroutine `foobar':
+Cfoo.f:11: 
+C         subroutine foobar(norb,nnorb)
+C                           ^
+CArray `norb' at (^) is too large to handle
 
       program foo
       implicit integer(A-Z)
index 50b517f..3134a00 100644 (file)
@@ -40,10 +40,10 @@ c   Next declaration added on transfer to gfortran testsuite
       common /Idim/ nlay, nlayz
       common /Idim/ n_work
       common /Idim/ nb_calls
-       
-      real     Xsp, Ysp, Xrcv, Yrcv
-      real     in( jT_f-hd_T : jT_l )
-       
+
+      real Xsp, Ysp, Xrcv, Yrcv
+      real in( jT_f-hd_T : jT_l )
+
       in( jT_f-hd_T     ) = Xsp
       in( jT_f-hd_T + 1 ) = Ysp 
       in( jT_f-hd_T + 2 ) = Xrcv
index 5b33840..e8b8ed7 100644 (file)
@@ -19,8 +19,8 @@ C  at this point!
 !
 !if { [ishost "i\[34567\]86-*-*"] } {
 !    if { [istarget "mmix-knuth-mmixware"]
-!       || [istarget "powerpc-*-*"] } {
-!      set torture_compile_xfail [istarget]
+! || [istarget "powerpc-*-*"] } {
+!    set torture_compile_xfail [istarget]
 !    }
 !}
 !
index 63b9be2..391d1cb 100644 (file)
@@ -7,8 +7,8 @@ c { dg-do run }
         k=1
         n=2
         ind=k-n+2
-       if (ind /= 1) call abort
-       if (ab(ind) /= 1) call abort
-       if (k-n+2 /= 1) call abort
-       if (ab(k-n+2) /= 1) call abort
+        if (ind /= 1) call abort
+        if (ab(ind) /= 1) call abort
+        if (k-n+2 /= 1) call abort
+        if (ab(k-n+2) /= 1) call abort
         END
index 0ab0aee..f8aae19 100644 (file)
@@ -1,32 +1,32 @@
 c { dg-do run }
 c============================================== test.f
-                real x, y
-               real*8 x1, y1
-               x=0.
-               y = erfc(x)
-               if (y .ne. 1.) call abort
+      real x, y
+      real*8 x1, y1
+      x=0.
+      y = erfc(x)
+      if (y .ne. 1.) call abort
 
-               x=1.1
-               y = erfc(x)
-               if (abs(y - .1197949) .ge. 1.e-6) call abort
+      x=1.1
+      y = erfc(x)
+      if (abs(y - .1197949) .ge. 1.e-6) call abort
 
-* modified from x=10, y .gt. 1.5e-44 to avoid lack of -mieee on Alphas.
-               x=8
-               y = erfc(x)
-               if (y .gt. 1.2e-28) call abort
+c modified from x=10, y .gt. 1.5e-44 to avoid lack of -mieee on Alphas.
+      x=8
+      y = erfc(x)
+      if (y .gt. 1.2e-28) call abort
 
-               x1=0.
-               y1 = erfc(x1)
-               if (y1 .ne. 1.) call abort
+      x1=0.
+      y1 = erfc(x1)
+      if (y1 .ne. 1.) call abort
 
-               x1=1.1d0
-               y1 = erfc(x1)
-               if (abs(y1 - .1197949d0) .ge. 1.d-6) call abort
+      x1=1.1d0
+      y1 = erfc(x1)
+      if (abs(y1 - .1197949d0) .ge. 1.d-6) call abort
 
-               x1=10
-               y1 = erfc(x1)
-               if (y1 .gt. 1.5d-44) call abort
-               end
+      x1=10
+      y1 = erfc(x1)
+      if (y1 .gt. 1.5d-44) call abort
+      end
 c=================================================
 !output:
 !  0.  1.875
index 3f0e122..e9a18a1 100644 (file)
@@ -38,16 +38,16 @@ c  a four-way average of rhobar
 
 c  another four-way average of rhobar
       do 270  k=0,N
-       rtmp1 = z(2,2,k)
-       rtmp2 = z(1,2,k)
-       rtmp3 = z(2,1,k)
-       rtmp4 = z(1,1,k)
-        yzin2(k) = 0.25 * 
+         rtmp1 = z(2,2,k)
+         rtmp2 = z(1,2,k)
+         rtmp3 = z(2,1,k)
+         rtmp4 = z(1,1,k)
+         yzin2(k) = 0.25 * 
      &       ( rtmp1 + rtmp2 + rtmp3 + rtmp4 )
   270       continue
 
       do k=0,N
-       if (yzin1(k) .ne. yzin2(k)) call abort
+         if (yzin1(k) .ne. yzin2(k)) call abort
       enddo
       if (yzin1(0) .ne. -1371.) call abort
       if (yzin1(1) .ne. -685.5) call abort
index 81954e2..d2d86a2 100644 (file)
@@ -1,13 +1,13 @@
         ! Program to test data statement
         program data
-       call sub1()
-       call sub2()
-       end
+        call sub1()
+        call sub2()
+        end
         subroutine sub1()
         integer i
         type tmp
           integer, dimension(4)::a 
-         real :: r 
+          real :: r 
         end type
         type tmp1
           type (tmp) t1(4)
@@ -58,7 +58,7 @@
         if (tmp2(2)%b .ne. 0) call abort
 
         end
-       subroutine sub2()
+        subroutine sub2()
         integer a(4,4), b(10)
         integer i,j,k
         real r,t
index 148cd39..765356d 100644 (file)
@@ -8,20 +8,20 @@ PROGRAM Test_INTEGER_select
 
   SELECT CASE (I)
      CASE (:-1)
-       CALL abort
+        CALL abort
      CASE (1:)
-       CALL abort
+        CALL abort
      CASE DEFAULT
-       CONTINUE
+        CONTINUE
   END SELECT
 
   SELECT CASE (I)
      CASE (3,2,1)
-       CALL abort
+        CALL abort
      CASE (0)
-       CONTINUE
+        CONTINUE
      CASE DEFAULT
-       call abort
+        call abort
   END SELECT
 
 ! Not aborted by here, so it worked
@@ -31,40 +31,40 @@ PROGRAM Test_INTEGER_select
 
   SELECT CASE (I)
      CASE (:-1)
-       CALL abort
+        CALL abort
      CASE (1:)
-       CONTINUE
+        CONTINUE
      CASE DEFAULT
-       CALL abort
+        CALL abort
   END SELECT
 
   SELECT CASE (I)
      CASE (3,2,1,:0)
-       CALL abort
+        CALL abort
      CASE (maxI)
-       CONTINUE
+        CONTINUE
      CASE DEFAULT
-       call abort
+        call abort
   END SELECT
 
   I = minI
 
   SELECT CASE (I)
      CASE (:-1)
-       CONTINUE
+        CONTINUE
      CASE (1:)
-       CALL abort
+        CALL abort
      CASE DEFAULT
-       CALL abort
+        CALL abort
   END SELECT
 
   SELECT CASE (I)
      CASE (3:,2,1,0)
-       CALL abort
+        CALL abort
      CASE (minI)
-       CONTINUE
+        CONTINUE
      CASE DEFAULT
-       call abort
+        call abort
   END SELECT
 
 END
index cd9bb00..18bc79b 100644 (file)
@@ -1,6 +1,6 @@
 INTEGER         :: I = 1
 SELECT CASE (I)
-   CASE (-3:-5)        ! Can never be matched
+   CASE (-3:-5)  ! Can never be matched
       CALL abort
    CASE (1)
       CONTINUE