OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [namelist_44.f90] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do run }
2
!
3
! PR fortran/34530
4
!
5
! Skipping over comment line was not working
6
!
7
! Test case contributed by Harald Anlauf.
8
!
9
program gfcbug77
10
  implicit none
11
 
12
  character(len=128) :: file = ""
13
  logical            :: default
14
  namelist /BLACKLIST/ file, default
15
  integer, parameter :: nnml = 10
16
  default = .true.
17
 
18
  open (nnml, file='gfcbug77.nml')
19
  write(nnml,*) "&blacklist "           ! The trailing space breaks gfortran
20
  write(nnml,*) "  ! This is a comment within the namelist"
21
  write(nnml,*) "  file    = 'myfile'"
22
  write(nnml,*) "  default = F"
23
  write(nnml,*) "/"
24
  rewind(nnml)
25
  read (nnml, nml=BLACKLIST)
26
  close(nnml,status="delete")
27
  if(file /= "myfile" .or. default) call abort()
28
!  write (*,nml=BLACKLIST)
29
end program gfcbug77

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.