Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pdt_6.f03 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! ! Fixes of ICE on invalid & accepts invalid ! ! Contributed by Janus Weil <janus@gcc.gnu.org> ! implicit none type :: param_matrix(c,r) integer, len :: c,r real :: m(c,r) end type type real_array(k) integer, kind :: k real(kind=k), allocatable :: r(:) end type type(param_matrix(1)) :: m1 ! { dg-error "does not contain enough parameter" } type(param_matrix(1,2)) :: m2 ! ok type(param_matrix(1,2,3)) :: m3 ! { dg-error "contains too many parameter" } type(param_matrix(1,2.5)) :: m4 ! { dg-error "must be of INTEGER type" } type(real_array(4)) :: a1 ! ok type(real_array(5)) :: a2 ! { dg-error "Kind 5 not supported for type REAL" } end