Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/typebound_call_8.f03 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! PR fortran/37429 ! This used to ICE, check that is fixed. MODULE touching IMPLICIT NONE TYPE :: EqnSys33 CONTAINS PROCEDURE, NOPASS :: solve1 END TYPE EqnSys33 CONTAINS FUNCTION solve1 () IMPLICIT NONE REAL :: solve1(3) solve1 = 0.0 END FUNCTION solve1 SUBROUTINE fill_gap () IMPLICIT NONE TYPE(EqnSys33) :: sys REAL :: res res = sys%solve1 () ! { dg-error "Incompatible rank" } END SUBROUTINE fill_gap END MODULE touching