Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/automatic_1.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! { dg-options "-O2 -fdec-static -fno-automatic" } subroutine foo (b) logical b integer i, j character*24 s automatic i if (b) then i = 26 j = 131 s = 'This is a test string' else if (i .eq. 26 .or. j .ne. 131) call abort if (s .ne. 'This is a test string') call abort end if end subroutine foo subroutine bar (s) character*42 s if (s .ne. '0123456789012345678901234567890123456') call abort call foo (.false.) end subroutine bar subroutine baz character*42 s ! Just clobber stack a little bit. s = '0123456789012345678901234567890123456' call bar (s) end subroutine baz call foo (.true.) call baz call foo (.false.) end