* Replace tabs with spaces.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@96009 138bc75d-0d04-0410-961f-82ee72b054a4

22 files changed, 391 insertions, 367 deletions

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e4a3c77aa91..1abdca14526 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -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>
 
diff --git a/gcc/testsuite/gfortran.dg/g77/19990313-1.f b/gcc/testsuite/gfortran.dg/g77/19990313-1.f
index b229bb40f20..db4be77334f 100644
--- a/gcc/testsuite/gfortran.dg/g77/19990313-1.f
+++ b/gcc/testsuite/gfortran.dg/g77/19990313-1.f
@@ -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
diff --git a/gcc/testsuite/gfortran.dg/g77/19990313-2.f b/gcc/testsuite/gfortran.dg/g77/19990313-2.f
index 5dac2d0ed40..edd5afd8188 100644
--- a/gcc/testsuite/gfortran.dg/g77/19990313-2.f
+++ b/gcc/testsuite/gfortran.dg/g77/19990313-2.f
@@ -1,6 +1,6 @@
 c { dg-do run }
        integer *8 foo, bar
-	complex c
+       complex c
         data c/(4e10,0)/
         foo = 4e10
         bar = c
diff --git a/gcc/testsuite/gfortran.dg/g77/19990313-3.f b/gcc/testsuite/gfortran.dg/g77/19990313-3.f
index c7489f6870a..c14beb92e71 100644
--- a/gcc/testsuite/gfortran.dg/g77/19990313-3.f
+++ b/gcc/testsuite/gfortran.dg/g77/19990313-3.f
@@ -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
diff --git a/gcc/testsuite/gfortran.dg/g77/19990525-0.f b/gcc/testsuite/gfortran.dg/g77/19990525-0.f
index 0baa802b66a..589fb8ebfd1 100644
--- a/gcc/testsuite/gfortran.dg/g77/19990525-0.f
+++ b/gcc/testsuite/gfortran.dg/g77/19990525-0.f
@@ -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:
 * 
diff --git a/gcc/testsuite/gfortran.dg/g77/19990826-0.f b/gcc/testsuite/gfortran.dg/g77/19990826-0.f
index 054f9abf552..bc471f0bf1a 100644
--- a/gcc/testsuite/gfortran.dg/g77/19990826-0.f
+++ b/gcc/testsuite/gfortran.dg/g77/19990826-0.f
@@ -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.
diff --git a/gcc/testsuite/gfortran.dg/g77/19990826-2.f b/gcc/testsuite/gfortran.dg/g77/19990826-2.f
index 8f0f0c18eb4..b8384f8d25a 100644
--- a/gcc/testsuite/gfortran.dg/g77/19990826-2.f
+++ b/gcc/testsuite/gfortran.dg/g77/19990826-2.f
@@ -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
 
diff --git a/gcc/testsuite/gfortran.dg/g77/19990826-3.f b/gcc/testsuite/gfortran.dg/g77/19990826-3.f
index aeaf4439996..dba24becb4c 100644
--- a/gcc/testsuite/gfortran.dg/g77/19990826-3.f
+++ b/gcc/testsuite/gfortran.dg/g77/19990826-3.f
@@ -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
diff --git a/gcc/testsuite/gfortran.dg/g77/20000511-1.f b/gcc/testsuite/gfortran.dg/g77/20000511-1.f
index fca4bf94080..261b6a0e27c 100644
--- a/gcc/testsuite/gfortran.dg/g77/20000511-1.f
+++ b/gcc/testsuite/gfortran.dg/g77/20000511-1.f
@@ -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
diff --git a/gcc/testsuite/gfortran.dg/g77/20000511-2.f b/gcc/testsuite/gfortran.dg/g77/20000511-2.f
index b3a3ca3dfd4..1ae24ae5b87 100644
--- a/gcc/testsuite/gfortran.dg/g77/20000511-2.f
+++ b/gcc/testsuite/gfortran.dg/g77/20000511-2.f
@@ -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
diff --git a/gcc/testsuite/gfortran.dg/g77/970625-2.f b/gcc/testsuite/gfortran.dg/g77/970625-2.f
index 53a4b23cc5d..c77a2b5f310 100644
--- a/gcc/testsuite/gfortran.dg/g77/970625-2.f
+++ b/gcc/testsuite/gfortran.dg/g77/970625-2.f
@@ -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! =============
diff --git a/gcc/testsuite/gfortran.dg/g77/980310-2.f b/gcc/testsuite/gfortran.dg/g77/980310-2.f
index 829706a9e62..1ed5efc5960 100644
--- a/gcc/testsuite/gfortran.dg/g77/980310-2.f
+++ b/gcc/testsuite/gfortran.dg/g77/980310-2.f
@@ -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
diff --git a/gcc/testsuite/gfortran.dg/g77/980310-3.f b/gcc/testsuite/gfortran.dg/g77/980310-3.f
index e7e9523558a..56560237859 100644
--- a/gcc/testsuite/gfortran.dg/g77/980310-3.f
+++ b/gcc/testsuite/gfortran.dg/g77/980310-3.f
@@ -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
 
 
diff --git a/gcc/testsuite/gfortran.dg/g77/980310-8.f b/gcc/testsuite/gfortran.dg/g77/980310-8.f
index bafb470d340..c20f2d72082 100644
--- a/gcc/testsuite/gfortran.dg/g77/980310-8.f
+++ b/gcc/testsuite/gfortran.dg/g77/980310-8.f
@@ -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)
diff --git a/gcc/testsuite/gfortran.dg/g77/980519-2.f b/gcc/testsuite/gfortran.dg/g77/980519-2.f
index 50b517fbd0c..3134a00b5cd 100644
--- a/gcc/testsuite/gfortran.dg/g77/980519-2.f
+++ b/gcc/testsuite/gfortran.dg/g77/980519-2.f
@@ -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
diff --git a/gcc/testsuite/gfortran.dg/g77/alpha1.f b/gcc/testsuite/gfortran.dg/g77/alpha1.f
index 5b33840f8c6..e8b8ed7cafd 100644
--- a/gcc/testsuite/gfortran.dg/g77/alpha1.f
+++ b/gcc/testsuite/gfortran.dg/g77/alpha1.f
@@ -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]
 !    }
 !}
 !
diff --git a/gcc/testsuite/gfortran.dg/g77/claus.f b/gcc/testsuite/gfortran.dg/g77/claus.f
index 63b9be254c9..391d1cb9a85 100644
--- a/gcc/testsuite/gfortran.dg/g77/claus.f
+++ b/gcc/testsuite/gfortran.dg/g77/claus.f
@@ -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
diff --git a/gcc/testsuite/gfortran.dg/g77/erfc.f b/gcc/testsuite/gfortran.dg/g77/erfc.f
index 0ab0aee8c1c..f8aae199d51 100644
--- a/gcc/testsuite/gfortran.dg/g77/erfc.f
+++ b/gcc/testsuite/gfortran.dg/g77/erfc.f
@@ -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
diff --git a/gcc/testsuite/gfortran.dg/g77/short.f b/gcc/testsuite/gfortran.dg/g77/short.f
index 3f0e12217ad..e9a18a1315b 100644
--- a/gcc/testsuite/gfortran.dg/g77/short.f
+++ b/gcc/testsuite/gfortran.dg/g77/short.f
@@ -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
diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/data.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/data.f90
index 81954e222b5..d2d86a2d71c 100644
--- a/gcc/testsuite/gfortran.fortran-torture/execute/data.f90
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/data.f90
@@ -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
diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/integer_select.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/integer_select.f90
index 148cd394e68..765356d2610 100644
--- a/gcc/testsuite/gfortran.fortran-torture/execute/integer_select.f90
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/integer_select.f90
@@ -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
diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/integer_select_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/integer_select_1.f90
index cd9bb00a98c..18bc79b4358 100644
--- a/gcc/testsuite/gfortran.fortran-torture/execute/integer_select_1.f90
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/integer_select_1.f90
@@ -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