! { dg-additional-options "-O0 -Wno-analyzer-possible-null-dereference -Wno-analyzer-null-dereference -Wno-analyzer-malloc-leak" }

program cb
  implicit none
  type :: jn
     real, allocatable :: ie
     character(len = :), allocatable :: e5
  end type jn
  real, parameter :: gm = 5.0

  block
    type(jn) :: r2

    r2 = jn (gm, "")
    call vz (r2%ie, gm)
  end block
contains
  subroutine vz (arg1, arg2)
    real :: arg1, arg2
    if (arg1 .ne. arg2) STOP 1
  end subroutine vz
end program cb