1! { dg-do compile } 2! Test by Dominique d'Humieres (PR 33957) 3function bug(i) result(c) 4 integer, pointer :: i 5 character(len=merge(1,2, associated(i))) :: c 6 c = "" 7end function bug 8