Subversion Repositories openrisc

! { 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