gcc/testsuite/gfortran.dg/pr64589.f90

   1 ! { dg-do compile }
   2 ! Just need to check if compiling and linking is possible.
   3 !
   4 ! Check that the _vtab linking issue is resolved.
   5 ! Contributed by Damian Rouson  <damian@sourceryinstitute.org>
   6
   7 module m
   8 contains
   9   subroutine fmt()
  10     class(*), pointer :: arg
  11     select type (arg)
  12     type is (integer)
  13     end select
  14   end subroutine
  15 end module
  16
  17 program p
  18   call getSuffix()
  19 contains
  20   subroutine makeString(arg1)
  21     class(*) :: arg1
  22     select type (arg1)
  23     type is (integer)
  24     end select
  25   end subroutine
  26   subroutine getSuffix()
  27     call makeString(1)
  28   end subroutine
  29 end
  30