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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [null_1.f90] - Rev 149

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

! { dg-do compile }
! PR fortran/20858
! If we have "x = null(i)", then "null()" acquires the type, kind type,
! and rank of i and these need to match those of x.
program null_1
   integer, parameter :: sp = kind(1.e0), dp = kind(1.d0)
   integer,  pointer :: i => null()
   real(sp), pointer :: x => null()
   real(dp), pointer :: y => null()
   real(sp), pointer :: z(:) => null()
   x => null(i)     ! { dg-error "types in pointer assignment" }
   x => null(y)     ! { dg-error "types in pointer assignment" }
   z => null(i)     ! { dg-error "types in pointer assignment" }
   z => null(y)     ! { dg-error "types in pointer assignment" }
   x => null(z)     ! { dg-error "ranks in pointer assignment" }
   z => null(x)     ! { dg-error "ranks in pointer assignment" }
   z => null(z)
   nullify(i, x, y, z)
end program null_1

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

powered by: WebSVN 2.1.0

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