gcc/testsuite/gfortran.dg/pdt_7.f03

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