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

Subversion Repositories openrisc

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

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


! { dg-do compile }
! { dg-options "-fcoarray=single" }
!
! Test for polymorphic coarrays
!
subroutine s2()
  type t
  end type t
  class(t) :: A(:)[4,2:*] ! { dg-error "is not ALLOCATABLE, SAVE nor a dummy argument" }
  print *, ucobound(a)
  allocate(a) ! { dg-error "must be ALLOCATABLE or a POINTER" }
end
 

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-fcoarray=single" }`
3			`!`
4			`! Test for polymorphic coarrays`
5			`!`
6			`subroutine s2()`
7			`type t`
8			`end type t`
9			`class(t) :: A(:)[4,2:*] ! { dg-error "is not ALLOCATABLE, SAVE nor a dummy argument" }`
10			`print *, ucobound(a)`
11			`allocate(a) ! { dg-error "must be ALLOCATABLE or a POINTER" }`
12			`end`
13

Browse

Tools

Subversion Repositories openrisc

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