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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [common_pointer_1.f90] - Blame information for rev 154

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 149 jeremybenn
! { dg-do run }
2
! PR13415
3
! Test pointer variables in common blocks.
4
 
5
subroutine test
6
  implicit none
7
  real, pointer :: p(:), q
8
  common /block/ p, q
9
 
10
  if (any (p .ne. (/1.0, 2.0/)) .or. (q .ne. 42.0)) call abort ()
11
end subroutine
12
 
13
program common_pointer_1
14
  implicit none
15
  real, target :: a(2), b
16
  real, pointer :: x(:), y
17
  common /block/ x, y
18
 
19
  a = (/1.0, 2.0/)
20
  b = 42.0
21
  x=>a
22
  y=>b
23
  call test
24
end program

powered by: WebSVN 2.1.0

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