Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/automatic_1.f90 @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +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