testsuite - typos and Cygwin problems

[Paul Thomas]

In going more systematically thorugh the test suite than I have in the 
past, I have noticed some "funnies":

(1) There are some typos in /gfortran.dg/data_char_1.f90

The commented out bit fails, whilst the correct if statement in b works 
fine.  Tru64/Cygwin/RH9.  This is what is in the cvs of 20050117

! Test character variables in data statements
! Also substrings of cahracter variables.
! PR14976 PR16228
program data_char_1
  character(len=5) :: a(2)
  character(len=5) :: b(2)
  data a /'Hellow', 'orld'/
  data b(:)(1:4), b(1)(5:5), b(2)(5:5) /'abcdefg', 'hi', 'j', 'k'/
  if ((a(1) .ne. 'Hello') .or. (a(2) .ne. 'orld ')) call abort
  if ((b(1) .ne. 'abcdj') .or. (b(2) .ne. 'hi  k')) call abort
!
!  if ((b(1) .ne. 'adcdl') .or. (b(2) .ne. 'hi  l')) call abort
!
end program

(2) complex_write.f90 and fmt_read.f90 both fail with Cygwin but run 
fine with Tru64/RH9

The problem is the same for both: carrying on a formatted REAL write 
beyond the end of record  produces +Infinity in the next.  Thus the 
subsequent read fails.  I will try to understand why this is happening. 
 Even if specific to Cygwin, it seems to me that it is likely to be 
symptomatic of something nasty.  If I do not identify the problem 
pronto, I will submit a bug report.

(3) a good number of the testsuite programmes have no { dg-xxxx } 
directives.

Would you like diffs for (1) and (3)?

Paul Thomas

PS The namelist modifications cause no regressions on alpha, windows or 
Linux.