(j3.2006) (SC22WG5.5643) [ukfortran] Is LOCK_TYPE still not locked up?

[Cohen Malcolm]

<<<
type :: T1
end type T1

type, extends(t1) :: T2
  type(lock_type) :: L
end type T2
>>>

This is already invalid.

C438 (R426) If EXTENDS appears and the type being defined has a potential 
subobject component of type EVENT_TYPE or LOCK_TYPE from the intrinsic 
module ISO_FORTRAN_ENV, its parent type shall be EVENT_TYPE or LOCK_TYPE or 
have a potential subobject component of type EVENT_TYPE or LOCK_TYPE.

Cheers,
-- 
........................Malcolm Cohen, Nihon NAG, Tokyo.