| ! { dg-do run } |
| ! |
| ! Tests the fix for PR49630 comment #3. |
| ! |
| ! Contributed by Janus Weil <janus@gcc.gnu.org> |
| ! |
| module abc |
| implicit none |
| |
| type::abc_type |
| contains |
| procedure::abc_function |
| end type abc_type |
| |
| contains |
| |
| function abc_function(this) |
| class(abc_type),intent(in)::this |
| character(:),allocatable::abc_function |
| allocate(abc_function,source="hello") |
| end function abc_function |
| |
| subroutine do_something(this) |
| class(abc_type),intent(in)::this |
| if (this%abc_function() .ne. "hello") STOP 1 |
| end subroutine do_something |
| |
| end module abc |
| |
| |
| use abc |
| type(abc_type) :: a |
| call do_something(a) |
| end |
