'fir.embox' op operand #0 must be any reference

[oroppas]

The code below results in the following error:

error: loc("./fir_embox.f90":26:5): 'fir.embox' op operand #0 must be any reference, but got '!fir.box<!fir.type<_QMcommTqm_ewald_structure{ewald_startup:!fir.logical<4>}>>'
oops, pass manager reported failure

module comm

  implicit none

  type:: simulation_t

    type(qm_ewald_structure),pointer :: ewald

  end type simulation_t


  type qm_ewald_structure

     logical :: ewald_startup !True if this is the very first MD step and we are doing qmewald.

  end type qm_ewald_structure
 

contains

  subroutine setp_simulation(a, ewald_struct)

    type(simulation_t), pointer  :: a
    type(qm_ewald_structure), target :: ewald_struct 

    a % ewald   => ewald_struct

  end subroutine

end module

[schweitzpgi]

This passes in my sandbox.