program diagnostics_sample
  implicit none
  integer :: duplicated_value
  real :: duplicated_value
end program diagnostics_sample