procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

pr3743.f: Delete

Browse source 
2002-02-03  David Billinghurst <David.Billinghurst@riotinto.com>

	* g77.f-torture/compile/pr3743.f: Delete
	* g77.dg/pr3743-1.f: New test.
	* g77.dg/pr3743-2.f: New test.
	* g77.dg/pr3743-3.f: New test.
	* g77.dg/pr3743-4.f: New test.

From-SVN: r49450
This commit is contained in:
David Billinghurst 2002-02-03 00:43:23 +00:00 • committed by David Billinghurst
parent 9cbcd983a9
commit e7daa976ff
6 changed files with 39 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,11 @@
2002-02-03 David Billinghurst <David.Billinghurst@riotinto.com>
* g77.f-torture/compile/pr3743.f: Delete
* g77.dg/pr3743-1.f: New test.
* g77.dg/pr3743-2.f: New test.
* g77.dg/pr3743-3.f: New test.
* g77.dg/pr3743-4.f: New test.
2002-02-02 Neil Booth <neil@daikokuya.demon.co.uk>
* gcc.dg/cpp/uchar-1.c, uchar-2.c, uchar-3.c: New tests.

7
gcc/testsuite/g77.dg/pr3743-1.f Normal file
View file

@ -0,0 +1,7 @@
C Test case for PR fortran/3743
C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
C
C { dg-do link }
integer i
i = bit_size(i)
end

8
gcc/testsuite/g77.dg/pr3743-2.f Normal file
View file

@ -0,0 +1,8 @@
C Test case for PR fortran/3743
C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
C
C { dg-do link }
C { dg-options "-fcase-preserve -fintrin-case-upper" }
integer i
i = BIT_SIZE(i)
end

8
gcc/testsuite/g77.dg/pr3743-3.f Normal file
View file

@ -0,0 +1,8 @@
c Test case for PR fortran/3743
c Origin: David Billinghurst <David.Billinghurst@riotinto.com>
c
c { dg-do link }
c { dg-options "-fcase-preserve -fintrin-case-lower" }
integer i
i = bit_size(i)
end

8
gcc/testsuite/g77.dg/pr3743-4.f Normal file
View file

@ -0,0 +1,8 @@
C Test case for PR fortran/3743
C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
C
C { dg-do link }
C { dg-options "-fcase-preserve -fintrin-case-initcap" }
integer i
i = Bit_Size(i)
end

16
gcc/testsuite/g77.f-torture/compile/pr3743.f
View file

@ -1,16 +0,0 @@
program pr3743
c On mips-sgi-irix6.5 get
c
c i3 = ISHFT(i,BIT_SIZE(i))
c ^
c Reference to intrinsic `ISHFT' at (^) invalid --
c one or more arguments have incorrect type
c
c David Billinghurst <David.Billinghurst@riotinto.com>
c
integer i, i2, i3
i = 3
i2 = BIT_SIZE(i)
i3 = ISHFT(i,i2)
i3 = ISHFT(i,BIT_SIZE(i))
end