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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [save_2.f90] - Blame information for rev 303

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 303 jeremybenn
! PR fortran/18518
2
      program main
3
        call foo
4
        call bar
5
        call foo
6
      end program main
7
 
8
      subroutine foo
9
        integer i,g,h
10
        data i/0/
11
        equivalence (g,h)
12
        save g
13
        if (i == 0) then
14
           i = 1
15
           h = 12345
16
        end if
17
        if (h .ne. 12345) call abort
18
      end subroutine foo
19
 
20
      subroutine bar
21
        integer a(10)
22
        a = 34
23
      end subroutine bar

powered by: WebSVN 2.1.0

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