Skip to content

R
riscv-gcc-1
Commit 02665ea4 by Steven G. Kargl Committed by Steven G. Kargl
Options

* Replace tabs with spaces. 

Co-Authored-By: Paul Thomas <prthomas@drfccad.cea.fr>

From-SVN: r96009
parent 01c65e8a
Showing with 145 additions and 120 deletions
gcc/testsuite/ChangeLog
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>
......
gcc/testsuite/gfortran.dg/g77/19990313-1.f
c { dg-do run }
integer *8 foo, bar
double precision r
double precision r
data r/4d10/
foo = 4d10
bar = r
......
gcc/testsuite/gfortran.dg/g77/19990313-2.f
c { dg-do run }
integer *8 foo, bar
complex c
complex c
data c/(4e10,0)/
foo = 4e10
bar = c
......
gcc/testsuite/gfortran.dg/g77/19990313-3.f
c { dg-do run }
integer *8 foo, bar
double complex c
double complex c
data c/(4d10,0)/
foo = 4d10
bar = c
......
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:
*
......
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.
gcc/testsuite/gfortran.dg/g77/19990826-2.f
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
......
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
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
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! =============
......
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
gcc/testsuite/gfortran.dg/g77/980310-3.f
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
......
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)
......
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
......
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]
! }
!}
!
......
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
gcc/testsuite/gfortran.dg/g77/erfc.f
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
......
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
......
gcc/testsuite/gfortran.fortran-torture/execute/data.f90
! 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
......
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
......
gcc/testsuite/gfortran.fortran-torture/execute/integer_select_1.f90
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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment