blob: afa1cddd163b1542bf0926414372aac4deae6374 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
! { 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
|
