comparison gcc/testsuite/gfortran.dg/pdt_9.f03 @ 111:04ced10e8804

gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
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 !
8 module 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
16 end module mod
17
18 program 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 ':'
23 end program bug