25 lines
525 B
Fortran
25 lines
525 B
Fortran
! { 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
|