Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/allocate_with_source_1.f90 @ 127:4c56639505ff
fix function.c and add CbC-example Makefile
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 18:46:58 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! Test the fix for PR47592, in which the SOURCE expression was ! being called twice. ! ! Contributed by Thomas Koenig <tkoenig@gcc.gnu.org> ! module foo implicit none contains function bar() integer bar integer :: i=9 i = i + 1 bar = i end function bar end module foo program note7_35 use foo implicit none character(:), allocatable :: name character(:), allocatable :: src integer n n = 10 allocate(name, SOURCE=repeat('x',bar())) if (name .ne. 'xxxxxxxxxx') call abort if (len (name) .ne. 10 ) call abort end program note7_35