Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pointer_init_1.f90 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! Check that null initialization of pointer variable works. ! { dg-do run } program pointer_init_1 type t real x end type type(t), pointer :: a => NULL() real, pointer :: b => NULL() character, pointer :: c => NULL() integer, pointer, dimension(:) :: d => NULL() if (associated(a)) call abort() if (associated(b)) call abort() if (associated(c)) call abort() if (associated(d)) call abort() end