Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pure_initializer_1.f90 @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! Tests the fix for PR32881, in which the initialization ! of 'p' generated an error because the pureness of 'bar' ! escaped. ! ! Contributed by Janne Blomqvist <jb@gcc.gnu.org> ! subroutine foo () integer, pointer :: p => NULL() contains pure function bar (a) integer, intent(in) :: a integer :: bar bar = a end function bar end subroutine foo