integer,parameter ::OBJ=INT_PTR_KIND()
 integer(OBJ) a

这不是指针。只是定义一个整数变量 a，这个整数的字节足以容纳一个地址。

a 还是常规变量，不是指针。

MODULE objects
    IMPLICIT NONE
    type rectangle
    integer::length=0,height=0,area=0
    end type rectangle
    integer,parameter ::OBJ=INT_PTR_KIND()
    integer(OBJ) plength,pheight,parea
END MODULE

这里定义了一个结构体 rectangle
另外定义了三个整型变量，plength , pheight ,parea
没有使用指针，更没指向

如果用指针，请学习 pointer 。另外，指针只能指向结构体变量，不能指向结构体成员。

比如 type( rectangle ) :: rt1 , rt2

可以指向 rt1 ,rt2 。但不能指向 rectangle