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

end program gfcbug58