ibz.f90

module IBZ
  implicit none

  type Plane
    integer :: M(1,1)
  end type Plane

  contains

    integer function t()
      type(Plane),  parameter :: planes(1) = [ Plane( reshape([1],[1,1]) )  ]
      integer                 :: thing(1)
      t = (planes(1)%M)
    end function t

end module IBZ