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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do compile }
2
!
3
! Private types and types with private components
4
! are acceptable in local namelists.
5
!
6
 
7
MODULE nml
8
  type :: tp1
9
    integer :: i
10
  end type
11
 
12
  type :: tp2
13
    private
14
    integer :: i
15
  end type
16
 
17
  private :: tp1
18
contains
19
  subroutine x()
20
   type(tp1) :: t1
21
   type(tp2) :: t2
22
 
23
    namelist /nml1/ i        ! ok, private variable
24
    namelist /nml2/ t1       ! ok, private type
25
    namelist /nml3/ t2       ! ok, private components
26
  end subroutine
27
END MODULE
28
 
29
! { dg-final { cleanup-modules "nml" } }

powered by: WebSVN 2.1.0

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