Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/dummy_procedure_8.f90 @ 144:8f4e72ab4e11
fix segmentation fault caused by nothing next cur_op to end
author | Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 23 Dec 2018 21:23:56 +0900 |
parents | 04ced10e8804 |
children | 1830386684a0 |
line wrap: on
line source
! { dg-do compile } ! ! PR 35831: [F95] Shape mismatch check missing for dummy procedure argument ! ! Contributed by Janus Weil <janus@gcc.gnu.org> implicit none call call_a(a1) ! { dg-error "Character length mismatch in function result" } call call_a(a2) ! { dg-error "Character length mismatch in function result" } call call_b(b1) ! { dg-error "Shape mismatch" } call call_c(c1) ! { dg-error "POINTER attribute mismatch in function result" } call call_d(c1) ! { dg-error "ALLOCATABLE attribute mismatch in function result" } call call_e(e1) ! { dg-error "CONTIGUOUS attribute mismatch in function result" } call call_f(c1) ! { dg-error "PROCEDURE POINTER mismatch in function result" } contains character(1) function a1() end function character(:) function a2() end function subroutine call_a(a3) interface character(2) function a3() end function end interface end subroutine function b1() integer, dimension(1:3) :: b1 end function subroutine call_b(b2) interface function b2() integer, dimension(0:4) :: b2 end function end interface end subroutine integer function c1() end function subroutine call_c(c2) interface function c2() integer, pointer :: c2 end function end interface end subroutine subroutine call_d(d2) interface function d2() integer, allocatable :: d2 end function end interface end subroutine function e1() integer, dimension(:), pointer :: e1 end function subroutine call_e(e2) interface function e2() integer, dimension(:), pointer, contiguous :: e2 end function end interface end subroutine subroutine call_f(f2) interface function f2() procedure(integer), pointer :: f2 end function end interface end subroutine end