------- Comment #30 from jv244 at cam dot ac dot uk 2006-12-11 09:51 ------- (In reply to comment #29)
simple testcase for the segfault: SUBROUTINE S(unit_number) character(len=100) :: status_string integer :: unit_number,istat status_string="KEEP" CLOSE (UNIT=unit_number,IOSTAT=istat,STATUS=TRIM(status_string)) END SUBROUTINE INTEGER :: unit_number unit_number=100 OPEN(unit_number) CALL S(unit_number) END -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=29975
