1! { dg-do run } 2! { dg-options "-std=legacy" } 3! 4! PR 27784 - Different strings should compare unequal even if they 5! have CHAR(0) in them. 6 7 program main 8 character*3 str1, str2 9 call setval(str1, str2) 10 if (str1 == str2) call abort 11 end 12 13 subroutine setval(str1, str2) 14 character*3 str1, str2 15 str1 = 'a' // CHAR(0) // 'a' 16 str2 = 'a' // CHAR(0) // 'c' 17 end 18