1! { dg-do run } 2! 3! Rejected valid 4! 5! ! Contributed by Janus Weil <janus@gcc.gnu.org> 6! 7implicit none 8 9type :: param_matrix(k,c,r) 10 integer, kind :: k 11 integer, len :: c,r 12 real(kind=k) :: m(c,r) 13end type 14 15type(param_matrix(8,3,2)) :: mat 16real(kind=mat%k) :: m ! Corrected error: Parameter ‘mat’ at (1) has not been declared or ... 17 18if (kind(m) .ne. 8) STOP 1 19 20end 21