! { dg-do compile } ! print_fmt_5.f90 ! Test of fix for PR28237 and the last bit of PR23420. 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