Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/dummy_procedure_4.f90 @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! ! PR 46067: [F03] invalid procedure pointer assignment not detected ! ! Contributed by Janus Weil <janus@gcc.gnu.org> module m type test_type integer :: id = 1 end type contains real function fun1 (t,x) real, intent(in) :: x type(test_type) :: t print *," id = ", t%id fun1 = cos(x) end function end module use m implicit none call test (fun1) ! { dg-error "Interface mismatch in dummy procedure" } contains subroutine test(proc) interface real function proc(t,x) import :: test_type real, intent(in) :: x class(test_type) :: t end function end interface type(test_type) :: funs real :: r r = proc(funs,0.) print *, " proc(0) ",r end subroutine end