------- Comment #3 from paul dot richard dot thomas at cea dot fr 2006-07-05 09:47 ------- Created an attachment (id=11825) --> (http://gcc.gnu.org/bugzilla/attachment.cgi?id=11825&action=view) Fix for PR28237 and the last bit of PR2320.
I have not had time to do a full regtest; just gfortran.dg/print*, which includes the following testcase (print_fmt_5.f90): Paul ! { dg-do compile } ! print_fmt_5.f90 ! Test of fix for PR28237 and the last bit of PR2320. See ! below for the description of the problem. ! program r character(12) :: for = '(i5)', left = '(i', right = ')' integer :: i, j integer :: h(4) & = (/1h(, 1hi, 1h5, 1h)/)! { dg-warning "HOLLERITH|Hollerith" } namelist /mynml/ i i = fact () ! ! All these are "legal" things to do; note however the warnings ! for extensions or obsolete features! ! print *, fact() print 100, fact() print '(i5)', fact() print mynml ! { dg-warning "is an extension" } do i = 1, 5 print trim(left)//char(iachar('0') + i)//trim(right), i end do assign 100 to i ! { dg-warning "ASSIGN statement" } print i, fact() ! { dg-warning "ASSIGNED variable" } print h, fact () ! { dg-warning "Non-character in FORMAT" } ! ! These are not and caused a segfault in trans-io:560 ! ! PR28237 print fact() ! { dg-error "not an ASSIGNED variable" } ! original PR23420 print precision(1.2_8) ! { dg-error "type default CHARACTER" } ! PR23420 points 4 and 5 print j + j ! { dg-error "not an ASSIGNED variable" } ! An extension of the above, encountered in writing the fix write (*, fact())! { dg-error "not an ASSIGNED variable" } 100 format (i5) contains function fact() integer :: fact fact = 1 end function fact end -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=28237