gcc/testsuite/gfortran.dg/assumed_type_8.f90

   1 ! { dg-do compile }
   2 !
   3 ! Issue came up during the review of PR fortran/58793
   4 !
   5 ! Test for TS29113:2012's C407b.
   6 !
   7 program test
   8   use iso_c_binding
   9   integer,target ::aa
  10   call up(c_loc(aa))
  11 contains
  12   subroutine up(x)
  13     class(*) :: x
  14   end subroutine
  15   subroutine bar(x)
  16    type(*) :: x
  17    call up(x) ! { dg-error "Assumed-type actual argument at .1. requires that dummy argument 'x' is of assumed type" }
  18   end subroutine bar
  19 end program test