00001 module tst1 00002 type typ1 00003 integer, pointer :: Press1(:) 00004 integer, pointer,dimension(:) :: Press2 00005 end type typ1 00006 end module tst1