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

Subversion Repositories openrisc

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

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do run }
2
! PR40853 Error in namelist IO.
3
! Test case derived from example given in PR. < jvdelisle@gcc.gnu.org >
4
program test
5
  implicit none
6
  type tao_title_struct
7
    character(2) justify
8
  end type
9
  type tao_plot_page_struct
10
    real shape_height_max
11
    type (tao_title_struct) title ! Comment this line out and the bug goes away.
12
    real size(2)
13
  end type
14
  type (tao_plot_page_struct) plot_page
15
  namelist / params / plot_page
16
  open (10, status="scratch")
17
  write(10,'(a)')"  ¶ms"
18
  write(10,'(a)')"  plot_page%size=5 , 2,"
19
  write(10,'(a)')"/"
20
  rewind(10)
21
  read (10, nml = params)
22
  if (any(plot_page%size .ne. (/ 5, 2 /))) call abort
23
  close (10)
24
end program
25
 

powered by: WebSVN 2.1.0

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