Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/null_3.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 } ! This checks the fix for PR34813 in which the error at line 17 ! was not detected. ! ! Contributed by Daniel Franke <dfranke@gcc.gnu.org> ! SUBROUTINE kd_tree_init_default() TYPE :: kd_tree_node INTEGER :: dummy END TYPE TYPE :: kd_tree TYPE(kd_tree_node) :: root END TYPE TYPE(kd_tree) :: tree tree = kd_tree(null()) ! { dg-error "neither a POINTER nor ALLOCATABLE" } END SUBROUTINE