blob: 34e217dc787308ab90f2e1071c7760264c9d317d [file] [log] [blame]
! { dg-do run }
! { dg-options "-fcheck=all" }
! { dg-shouldfail "value of the PDT LEN parameter" }
!
! Reduced version of pdt_1.f03 to check that an incorrect
! value for the parameter 'b' in the dummy is picked up.
!
implicit none
integer, parameter :: ftype = kind(0.0e0)
integer :: i
type :: mytype (a,b)
integer, kind :: a = kind(0.0d0)
integer, LEN :: b
integer :: i
real(kind = a) :: d(b, b)
character (len = b*b) :: chr
end type
type(mytype(ftype, 4)) :: z2
call foobar (z2)
contains
subroutine foobar (arg)
type(mytype(ftype, 8)) :: arg
print *, arg%i
end subroutine
end