MatCat.OpenSource/8sa1-gcc
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

980628-4.f: New test from Craig.

Browse Source 
* g77.f-torture/execute/980628-4.f: New test from Craig.
        * g77.f-torture/execute/980628-5.f: Likewise.
        * g77.f-torture/execute/980628-2.f: Likewise.
        * g77.f-torture/execute/980628-0.f: Likewise.
        * g77.f-torture/execute/980628-1.f: Likewise.
        * g77.f-torture/execute/980628-3.f: Likewise.
        * g77.f-torture/execute/980628-6.f: Likewise.

From-SVN: r20783
This commit is contained in:
Jeffrey A Law 1998-06-28 19:49:44 +00:00 committed by Jeff Law
parent 3d727c4216
commit b0d45b7466
2 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
gcc/testsuite/ChangeLog
View File

@ -6,6 +6,7 @@ Sun Jun 28 12:49:02 1998 Jeffrey A Law (law@cygnus.com)
* g77.f-torture/execute/980628-0.f: Likewise. * g77.f-torture/execute/980628-0.f: Likewise.
* g77.f-torture/execute/980628-1.f: Likewise. * g77.f-torture/execute/980628-1.f: Likewise.
* g77.f-torture/execute/980628-3.f: Likewise. * g77.f-torture/execute/980628-3.f: Likewise.
* g77.f-torture/execute/980628-6.f: Likewise.
Sun Jun 28 00:37:26 1998 Jeffrey A Law (law@cygnus.com) Sun Jun 28 00:37:26 1998 Jeffrey A Law (law@cygnus.com)

26
gcc/testsuite/g77.f-torture/execute/980628-6.f Normal file
View File

@ -0,0 +1,26 @@
* g77 0.5.23 and previous had bugs involving too little space
* allocated for EQUIVALENCE and COMMON areas needing initial
* padding to meet alignment requirements of the system,
* including when initial values are provided (e.g. DATA).
program test
implicit none
character c
double precision d(100)
common /cmn/ c, d
if (d(80) .ne. 10.) call abort
end
block data init
implicit none
character c
double precision d(100)
common /cmn/ c, d
data d(80)/10./
end