| ! { dg-do run } | |
| ! | |
| ! Rejected valid | |
| ! | |
| ! ! Contributed by Janus Weil <janus@gcc.gnu.org> | |
| ! | |
| implicit none | |
| type :: param_matrix(k,c,r) | |
| integer, kind :: k | |
| integer, len :: c,r | |
| real(kind=k) :: m(c,r) | |
| end type | |
| type(param_matrix(8,3,2)) :: mat | |
| real(kind=mat%k) :: m ! Corrected error: Parameter ‘mat’ at (1) has not been declared or ... | |
| if (kind(m) .ne. 8) STOP 1 | |
| end |