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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [namelist_26.f90] - Blame information for rev 302

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 302 jeremybenn
! { dg-do run }
2
! PR30918 Failure to skip commented out NAMELIST
3
! Before the patch, this read the commented out namelist and iuse would
4
! equal 2 when done.  Test case from PR.
5
program gfcbug58
6
  implicit none
7
  integer            :: iuse = 0, ios
8
  integer, parameter :: nmlunit = 10    ! Namelist unit
9
  !------------------
10
  ! Namelist 'REPORT'
11
  !------------------
12
  character(len=12) :: type, use
13
  integer           :: max_proc
14
  namelist /REPORT/ type, use, max_proc
15
  !------------------
16
  ! Set up the test file
17
  !------------------
18
  open(unit=nmlunit, status="scratch")
19
  write(nmlunit, '(a)') "!================"
20
  write(nmlunit, '(a)') "! Namelist REPORT"
21
  write(nmlunit, '(a)') "!================"
22
  write(nmlunit, '(a)') "!      &REPORT use      = 'ignore'   / ! Comment"
23
  write(nmlunit, '(a)') "!"
24
  write(nmlunit, '(a)') " &REPORT type     = 'SYNOP'"
25
  write(nmlunit, '(a)') "         use      = 'active'"
26
  write(nmlunit, '(a)') "         max_proc = 20"
27
  write(nmlunit, '(a)') " /"
28
  rewind(nmlunit)
29
  !-------------------------------------
30
  ! Loop to read namelist multiple times
31
  !-------------------------------------
32
  do
33
     !----------------------------------------
34
     ! Preset namelist variables with defaults
35
     !----------------------------------------
36
     type      = ''
37
     use       = ''
38
     max_proc  = -1
39
     !--------------
40
     ! Read namelist
41
     !--------------
42
     read (nmlunit, nml=REPORT, iostat=ios)
43
     if (ios /= 0) exit
44
     iuse = iuse + 1
45
  end do
46
  if (iuse /= 1) call abort()
47
 
48
end program gfcbug58

powered by: WebSVN 2.1.0

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