OSDN Git Service

PR fortran/23677
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.fortran-torture / execute / save_1.f90
1       subroutine foo (b)
2         logical b
3         integer i, j
4         character*24 s
5         save
6         if (b) then
7           i = 26
8           j = 131
9           s = 'This is a test string'
10         else
11           if (i .ne. 26 .or. j .ne. 131) call abort
12           if (s .ne. 'This is a test string') call abort
13         end if
14       end subroutine foo
15       subroutine bar (s)
16         character*42 s
17         if (s .ne. '0123456789012345678901234567890123456') call abort
18         call foo (.false.)
19       end subroutine bar
20       subroutine baz
21         character*42 s
22         ! Just clobber stack a little bit.
23         s = '0123456789012345678901234567890123456'
24         call bar (s)
25       end subroutine baz
26       call foo (.true.)
27       call baz
28       call foo (.false.)
29       end