OSDN Git Service

PR fortran/23677
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / save_1.f90
1 ! { 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