Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/analyzer/pr93777.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | |
children |
line wrap: on
line source
! { 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