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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do compile }
2
! This checks the fix for PR34813 in which the error at line 17
3
! was not detected.
4
!
5
! Contributed by Daniel Franke 
6
!
7
SUBROUTINE kd_tree_init_default()
8
  TYPE :: kd_tree_node
9
    INTEGER :: dummy
10
  END TYPE
11
 
12
  TYPE :: kd_tree
13
    TYPE(kd_tree_node) :: root
14
  END TYPE
15
 
16
  TYPE(kd_tree)  :: tree
17
  tree = kd_tree(null()) ! { dg-error "neither a POINTER nor ALLOCATABLE" }
18
END SUBROUTINE

powered by: WebSVN 2.1.0

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