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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do compile }
2
! { dg-options "-fcoarray=single" }
3
!
4
! Prevent ICE when exceeding the maximal number of allowed
5
! dimensions (normal + codimensions).
6
!
7
! Fortran 2008 allows (co)arrays with 15 ranks
8
! Currently, gfortran only supports 7, cf. PR 37577
9
! Thus, the program is valid Fortran 2008 ...
10
!
11
! See also general coarray PR 18918
12
!
13
! Test case taken from Leibniz-Rechenzentrum (LRZ)'s
14
! fortran_tests with thanks to Reinhold Bader.
15
!
16
 
17
program ar
18
  implicit none
19
  integer :: ic(2)[*]
20
  integer :: id(2,2)[2,*]
21
  integer :: ie(2,2,2)[2,2,*]
22
  integer :: ig(2,2,2,2)[2,2,2,*] ! { dg-error "has more than 7 dimensions" }
23
  integer :: ih(2,2,2,2,2)[2,2,2,2,*] ! { dg-error "has more than 7 dimensions" }
24
  integer :: ij(2,2,2,2,2,2)[2,2,2,2,2,*] ! { dg-error "has more than 7 dimensions" }
25
  integer :: ik(2,2,2,2,2,2,2)[2,2,2,2,2,2,*] ! { dg-error "has more than 7 dimensions" }
26
  integer :: il[2,2,2,2,2,2,2,*] ! { dg-error "has more than 7 dimensions" }
27
  integer :: im[2,2,2,2,2,2,2,2,*] ! { dg-error "has more than 7 dimensions" }
28
  integer :: in[2,2,2,2,2,2,2,2,2,*] ! { dg-error "has more than 7 dimensions" }
29
  integer :: io[2,2,2,2,2,2,2,2,2,2,*] ! { dg-error "has more than 7 dimensions" }
30
   real :: x2(2,2,4)[2,*]
31
   complex :: c2(4,2)[2,*]
32
   double precision :: d2(1,5,9)[2,*]
33
   character(len=1) :: ch2(2)[2,*]
34
   character(len=2) :: ch22(-5:4)[2,*]
35
   logical :: l2(17)[2,*]
36
   if (this_image() == 1) then
37
      write(*,*) 'OK'
38
   end if
39
end program

powered by: WebSVN 2.1.0

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