Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pr64589.f90 @ 120:f93fa5091070
fix conv1.c
author | mir3636 |
---|---|
date | Thu, 08 Mar 2018 14:53:42 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! Just need to check if compiling and linking is possible. ! ! Check that the _vtab linking issue is resolved. ! Contributed by Damian Rouson <damian@sourceryinstitute.org> module m contains subroutine fmt() class(*), pointer :: arg select type (arg) type is (integer) end select end subroutine end module program p call getSuffix() contains subroutine makeString(arg1) class(*) :: arg1 select type (arg1) type is (integer) end select end subroutine subroutine getSuffix() call makeString(1) end subroutine end