type :: ProcPtrArrTwo_t procedure(dummySubroutine), pointer, nopass :: ptr => null() end type ProcPtrArrTwo_t