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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [save_1.f90] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-options "-O2 -fno-automatic" }
2
      subroutine foo (b)
3
        logical b
4
        integer i, j
5
        character*24 s
6
        save i
7
        if (b) then
8
          i = 26
9
          j = 131
10
          s = 'This is a test string'
11
        else
12
          if (i .ne. 26 .or. j .ne. 131) call abort
13
          if (s .ne. 'This is a test string') call abort
14
        end if
15
      end subroutine foo
16
      subroutine bar (s)
17
        character*42 s
18
        if (s .ne. '0123456789012345678901234567890123456') call abort
19
        call foo (.false.)
20
      end subroutine bar
21
      subroutine baz
22
        character*42 s
23
        ! Just clobber stack a little bit.
24
        s = '0123456789012345678901234567890123456'
25
        call bar (s)
26
      end subroutine baz
27
      call foo (.true.)
28
      call baz
29
      call foo (.false.)
30
      end

powered by: WebSVN 2.1.0

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