Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/typebound_proc_2.f90 @ 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 } ! { dg-options "-std=f95" } ! Type-bound procedures ! Test that F95 does not allow type-bound procedures MODULE testmod IMPLICIT NONE TYPE t INTEGER :: x CONTAINS ! { dg-error "Fortran 2003" } PROCEDURE proc1 ! { dg-error "Fortran 2003" } PROCEDURE :: proc2 => p2 ! { dg-error "Fortran 2003" } END TYPE t CONTAINS SUBROUTINE proc1 (me) IMPLICIT NONE TYPE(t1) :: me END SUBROUTINE proc1 REAL FUNCTION proc2 (me, x) IMPLICIT NONE TYPE(t1) :: me REAL :: x proc2 = x / 2 END FUNCTION proc2 END MODULE testmod ! { dg-excess-errors "no IMPLICIT type" }