2 ! { dg-options "-fdump-tree-original" }
4 ! Check the fix for PR87881.
6 complex(8) :: zi
= (0,-1_8)
7 character(2) :: chr
='ab'
8 if (zi
%re
%kind
.ne
. kind (real (zi
))) stop 1
9 if (chr
%len
%kind
.ne
. kind (len (chr
))) stop 2
11 ! After simplification there should only be the delarations for 'zi' and 'chr'
13 ! { dg-final { scan-tree-dump-times "zi" 1 "original" } }
14 ! { dg-final { scan-tree-dump-times "chr" 1 "original" } }