1! { dg-do compile } 2! { dg-options "-O -fdump-tree-original" } 3! PR 51338 - this used to ICE. 4! Original test case by Bud Davis. 5subroutine foo(a,b) 6 character(len=*) :: a 7 if (a(1:) /= a(1:)) call do_not_use 8end subroutine foo 9! { dg-final { scan-tree-dump-times "do_not_use" 0 "original" } } 10! { dg-final { cleanup-tree-dump "original" } } 11