1! { dg-do compile }
2!
3! Test the fix for PR82168 in which the declarations for 'a'
4! and 'b' threw errors even though they are valid.
5!
6! Contributed by  <physiker@toast2.net>
7!
8module mod
9  implicit none
10  integer, parameter :: dp = kind (0.0d0)
11  type, public :: v(z, k)
12    integer, len :: z
13    integer, kind :: k = kind(0.0)
14    real(kind = k) :: e(z)
15  end type v
16end module mod
17
18program bug
19  use mod
20  implicit none
21  type (v(2)) :: a     ! Missing parameter replaced by initializer.
22  type (v(z=:, k=dp)), allocatable :: b ! Keyword was not working for '*' or ':'
23end program bug
24