diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/pdt_9.f03')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pdt_9.f03 | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/pdt_9.f03 b/gcc/testsuite/gfortran.dg/pdt_9.f03 new file mode 100644 index 0000000..afa1cdd --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pdt_9.f03 @@ -0,0 +1,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 |