! { 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 |