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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do compile }
2
! One of two tests for the fix of PR23152 - There used to be
3
! no warning for assumed shape arrays in namelists.
4
!
5
! Conributed by Paul Thomas  
6
!
7
program assumed_shape_nml
8
  real, dimension (10) :: z
9
  z = 42.0
10
  call foo (z)
11
contains
12
  subroutine foo (y)
13
    real, DIMENSION (:) :: y
14
    namelist /mynml/ y
15
    write (*, mynml)
16
  end subroutine foo
17
end program assumed_shape_nml

powered by: WebSVN 2.1.0

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