Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/same_type_as_1.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 } ! ! Error checking for the intrinsic functions SAME_TYPE_AS and EXTENDS_TYPE_OF. ! ! Contributed by Janus Weil <janus@gcc.gnu.org> type :: t1 integer :: i end type type :: ts sequence integer :: j end type TYPE(t1) :: x1 TYPE(ts) :: x2 integer :: i print *, SAME_TYPE_AS (i,x1) ! { dg-error "cannot be of type INTEGER" } print *, SAME_TYPE_AS (x1,x2) ! { dg-error "must be of an extensible type" } print *, EXTENDS_TYPE_OF (i,x1) ! { dg-error "cannot be of type INTEGER" } print *, EXTENDS_TYPE_OF (x1,x2) ! { dg-error "must be of an extensible type" } end