------- Comment #2 from dominiq at lps dot ens dot fr 2007-10-31 13:17 -------
The test case is bogus (missing closing parenthesis and p is not a pointer). I
hope the following is valid:
! { dg-do compile }
function bug(i) result(c)
integer, pointer :: i
character(len=merge(1,2, associated(i))) :: c
c = ""
end function bug
it is accepted by xlf and g95 (with or without -std=f95).
If my understanding of the proc 'check_inquiry' in expr.c is correct,
'associated' is not in the set inquiry_func_f2003.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33957
