Subversion Repositories openrisc_me

! { dg-do run }

! { dg-options "-fdump-tree-original" }

! PR12456 - Optimize string(k:k) as single character.

Program pr12456

character a

character b

character (len=5) :: c

integer i

b = 'a'

a = b

if (a .ne. 'a') call abort()

if (a .ne. b) call abort()

c (3:3) = 'a'

if (c (3:3) .ne. b) call abort ()

if (c (3:3) .ne. 'a') call abort ()

if (LGT (a, c (3:3))) call abort ()

if (LGT (a, 'a')) call abort ()

i = 3

c (i:i) = 'a'

if (c (i:i) .ne. b) call abort ()

if (c (i:i) .ne. 'a') call abort ()

if (LGT (a, c (i:i))) call abort ()

if (a .gt. char (255)) call abort ()

end

! There should not be _gfortran_compare_string and _gfortran_copy_string in

! the dumped file.

! { dg-final { scan-tree-dump-times "_gfortran_compare_string" 0 "original" } }

! { dg-final { scan-tree-dump-times "_gfortran_copy_string" 0 "original" } }

! { dg-final { cleanup-tree-dump "original" } }