Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/automatic_1.f90 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
131
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
1 ! { dg-do run }
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
2 ! { dg-options "-O2 -fdec-static -fno-automatic" }
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
3 subroutine foo (b)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
4 logical b
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
5 integer i, j
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
6 character*24 s
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
7 automatic i
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
8 if (b) then
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
9 i = 26
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
10 j = 131
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
11 s = 'This is a test string'
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
12 else
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
13 if (i .eq. 26 .or. j .ne. 131) call abort
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
14 if (s .ne. 'This is a test string') call abort
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
15 end if
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
16 end subroutine foo
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
17 subroutine bar (s)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
18 character*42 s
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
19 if (s .ne. '0123456789012345678901234567890123456') call abort
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
20 call foo (.false.)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
21 end subroutine bar
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
22 subroutine baz
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
23 character*42 s
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
24 ! Just clobber stack a little bit.
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
25 s = '0123456789012345678901234567890123456'
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
26 call bar (s)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
27 end subroutine baz
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
28 call foo (.true.)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
29 call baz
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
30 call foo (.false.)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
31 end