2 ! Test the fix for PR47592, in which the SOURCE expression was
5 ! Contributed by Thomas Koenig <tkoenig@gcc.gnu.org>
21 character(:), allocatable :: name
22 character(:), allocatable :: src
25 allocate(name, SOURCE=repeat('x',bar()))
26 if (name .ne. 'xxxxxxxxxx') call abort
27 if (len (name) .ne. 10 ) call abort
29 ! { dg-final { cleanup-modules "foo" } }