http://gcc.gnu.org/bugzilla/show_bug.cgi?id=46588
--- Comment #1 from Oleh Steblev <oleg.steblev at gmail dot com> 2010-11-21 19:13:43 UTC --- This chunk causes an error. Although PVF 10.8 passes this function. function aufun() character(len = *) aufun character(len = trim(aufun)) t end