OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [980628-10.f] - Blame information for rev 694

Details | Compare with Previous | View Log

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

powered by: WebSVN 2.1.0

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