OpenCores
URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [980628-3.f] - Blame information for rev 302

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 302 jeremybenn
c { dg-do run }
2
c { dg-options "-std=gnu" }
3
c
4
* g77 0.5.23 and previous had bugs involving too little space
5
* allocated for EQUIVALENCE and COMMON areas needing initial
6
* padding to meet alignment requirements of the system.
7
 
8
      call subr
9
      end
10
 
11
      subroutine subr
12
      implicit none
13
      save
14
 
15
      character c1(11), c2(11), c3(11)
16
      real r1, r2, r3
17
      character c4, c5, c6
18
      equivalence (c1(2), r1)
19
      equivalence (c2(2), r2)
20
      equivalence (c3(2), r3)
21
 
22
      c1(1) = '1'
23
      r1 = 1.
24
      c1(11) = '1'
25
      c4 = '4'
26
      c2(1) = '2'
27
      r2 = 2.
28
      c2(11) = '2'
29
      c5 = '5'
30
      c3(1) = '3'
31
      r3 = 3.
32
      c3(11) = '3'
33
      c6 = '6'
34
 
35
      call x (c1, r1, c2, r2, c3, r3, c4, c5, c6)
36
 
37
      end
38
 
39
      subroutine x (c1, r1, c2, r2, c3, r3, c4, c5, c6)
40
      implicit none
41
 
42
      character c1(11), c2(11), c3(11)
43
      real r1, r2, r3
44
      character c4, c5, c6
45
 
46
      if (c1(1) .ne. '1') call abort
47
      if (r1 .ne. 1.) call abort
48
      if (c1(11) .ne. '1') call abort
49
      if (c4 .ne. '4') call abort
50
      if (c2(1) .ne. '2') call abort
51
      if (r2 .ne. 2.) call abort
52
      if (c2(11) .ne. '2') call abort
53
      if (c5 .ne. '5') call abort
54
      if (c3(1) .ne. '3') call abort
55
      if (r3 .ne. 3.) call abort
56
      if (c3(11) .ne. '3') call abort
57
      if (c6 .ne. '6') call abort
58
 
59
      end

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.