Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pointer_assign_9.f90 @ 120:f93fa5091070
fix conv1.c
author | mir3636 |
---|---|
date | Thu, 08 Mar 2018 14:53:42 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! ! PR fortran/57530 ! ! ! TYPE => CLASS pointer assignment for functions ! module m implicit none type t integer :: ii = 55 end type t contains function f1() class(t), pointer :: f1 allocate (f1) f1%ii = 123 end function f1 function f2() class(t), pointer :: f2(:) allocate (f2(3)) f2(:)%ii = [-11,-22,-33] end function f2 end module m program test use m implicit none type(t), pointer :: p1, p2(:),p3(:,:) p1 => f1() if (p1%ii /= 123) call abort () p2 => f2() if (any (p2%ii /= [-11,-22,-33])) call abort () p3(2:2,1:3) => f2() if (any (p3(2,:)%ii /= [-11,-22,-33])) call abort () end program test