46 lines
1.3 KiB
Fortran
46 lines
1.3 KiB
Fortran
! { 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
|
|
|