gcc/testsuite/gfortran.dg/coarray/ptr_comp_5.f08


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

! { dg-do compile }

! Check PR84244 does not ICE anymore.

program ptr_comp_5
  integer, target :: dest = 42
  type t
    integer, pointer :: p
  end type
  type(t) :: o[*]

  o%p => dest
contains
  ! This unused routine is crucial for the ICE.
  function f(x)
    type(t), intent(in) ::x
  end function
end program