| ! { dg-do compile } |
| ! |
| ! Test the fix for PR82168 in which the declarations for 'a' |
| ! and 'b' threw errors even though they are valid. |
| ! |
| ! Contributed by <physiker@toast2.net> |
| ! |
| module mod |
| implicit none |
| integer, parameter :: dp = kind (0.0d0) |
| type, public :: v(z, k) |
| integer, len :: z |
| integer, kind :: k = kind(0.0) |
| real(kind = k) :: e(z) |
| end type v |
| end module mod |
| |
| program bug |
| use mod |
| implicit none |
| type (v(2)) :: a ! Missing parameter replaced by initializer. |
| type (v(z=:, k=dp)), allocatable :: b ! Keyword was not working for '*' or ':' |
| end program bug |
