gcc/testsuite/gfortran.dg/null_9.f90

   1 ! { dg-do run }
   2
   3 MODULE fold_convert_loc_ice
   4   IMPLICIT NONE
   5   PRIVATE
   6
   7   TYPE, PUBLIC :: ta
   8     PRIVATE
   9     INTEGER :: a_comp
  10   END TYPE ta
  11
  12   TYPE, PUBLIC :: tb
  13     TYPE(ta), ALLOCATABLE :: b_comp
  14   END TYPE tb
  15
  16   PUBLIC :: proc
  17 CONTAINS
  18   SUBROUTINE proc
  19     TYPE(tb) :: b
  20
  21     b = tb(null())
  22     if (allocated( b%b_comp )) STOP 1
  23   END SUBROUTINE proc
  24 END MODULE fold_convert_loc_ice
  25
  26   USE fold_convert_loc_ice
  27
  28   call proc()
  29 END
  30