Mercurial > hg > CbC > CbC_gcc
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 |