gcc/testsuite/gfortran.dg/pdt_16.f03

   1 ! { dg-do compile }
   2 !
   3 ! Test the fix for all three errors in PR82586
   4 !
   5 ! Contributed by G Steinmetz  <gscfq@t-online.de>
   6 !
   7 module m
   8    type t(a)                 ! { dg-error "does not have a component" }
   9    end type
  10 end
  11
  12 program p
  13    type t(a                  ! { dg-error "Expected parameter list" }
  14       integer, kind :: a
  15       real(a) :: x
  16    end type
  17    type u(a, a)              ! { dg-error "Duplicate name" }
  18       integer, kind :: a     ! { dg-error "already declared" }
  19       integer, len :: a      ! { dg-error "already declared" }
  20    end type
  21 end