mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
12 lines
226 B
Fortran
12 lines
226 B
Fortran
! { dg-do compile }
|
|
!
|
|
! Tests the fixes for PR82866.
|
|
!
|
|
! Contributed by Gerhard Steinmetz <gscfq@t-online.de>
|
|
!
|
|
module s
|
|
type t(*, a, :) ! { dg-error "A parameter name is required" }
|
|
integer, len :: a
|
|
end type
|
|
end
|