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