[Bug fortran/29387] ICE on character array function of variable length

[fxcoudert at gcc dot gnu dot org]

------- Comment #1 from fxcoudert at gcc dot gnu dot org  2006-10-08 21:53 
-------
Another testcase for this bug:

TYPE T1 
 INTEGER, POINTER :: I=>NULL() 
END TYPE T1 
 IF(.NOT.ASSOCIATED(F1(10))) CALL ABORT() 
CONTAINS 
 FUNCTION F1(I) RESULT(R) 
  TYPE(T1), DIMENSION(:), POINTER :: R 
  INTEGER :: I 
  ALLOCATE(R(I)) 
 END FUNCTION F1 
END 


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=29387