mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
27 lines
703 B
Fortran
27 lines
703 B
Fortran
! { 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
|