gcc/testsuite/gfortran.dg/class_result_6.f90

! { dg-do run }
!
! Test the fix for PR79072 comment #12. A description of the problem
! is to be found in class_result_5.f90.
!
! Contributed by Neil Carlson  <neil.n.carlson@gmail.com>
!
  character(3), target :: a = 'foo'
  class(*), pointer :: b
  b => ptr()
  select type (b)
    type is (character(*))
      if (a .ne. "bar") STOP 1
  end select
contains
  function ptr()
    class(*), pointer :: ptr
    ptr => a
    select type (ptr)
      type is (character(*))
        ptr = "bar"
    end select
  end function
end