diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/null_3.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/null_3.f90 | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/null_3.f90 b/gcc/testsuite/gfortran.dg/null_3.f90 new file mode 100644 index 000000000..141af1f5b --- /dev/null +++ b/gcc/testsuite/gfortran.dg/null_3.f90 @@ -0,0 +1,18 @@ +! { 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 |