2 ! Tests the fix for PR30273, in which the pointer assignment was
3 ! wrongly determined to have dependence because NULL() was not
4 ! recognised by the analysis.
6 ! Contributed by Harald Anlauf <anlauf@gmx.de>
12 integer, pointer :: vm(:,:,:)
17 type(spot_t), pointer :: spots(:) => NULL()
22 subroutine construct (rc, n)
23 type(rc_t), intent(out) :: rc
24 integer , intent(in) :: n
27 allocate (rc% spots (n))
29 rc% spots (k)% vm => NULL() ! gfortran didn't swallow this
31 end subroutine construct
34 ! { dg-final { cleanup-modules "gfcbug49" } }