Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/deferred_character_21.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
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
1 ! { dg-do compile }
2 ! { dg-options "-O3" }
3 !
4 ! Tests the fix for PR85954 in which the gimplifier could not determine
5 ! the space required for the dummy argument data types, when inlining the
6 ! subroutines.
7 !
8 ! Contributed by G.Steinmetz <gscfq@t-online.de>
9 !
10 program p
11 character(kind=1,len=:), allocatable :: z(:)
12 allocate (z, source = ["xyz"])
13 print *, allocated(z), size(z), len(z), z
14 call s(z)
15 call t(z)
16 contains
17 subroutine s(x)
18 character(kind=1,len=:), allocatable :: x(:)
19 x = ['abcd']
20 print *, allocated(x), size(x), len(x), x
21 end
22 subroutine t(x)
23 character(kind=1,len=:), allocatable :: x(:)
24 associate (y => x)
25 y = ['abc']
26 end associate
27 print *, allocated(x), size(x), len(x), x
28 end
29 end