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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [allocate_alloc_opt_1.f90] - Rev 694

Compare with Previous | Blame | View Log

! { dg-do compile }
program a

  implicit none

  real x
  integer j, k, n(4)
  character(len=70) err
  character(len=70), allocatable :: error(:)

  integer, allocatable :: i(:)

  type b
    integer, allocatable :: c(:), d(:)
  end type b

  type(b) e, f(3)

  allocate(i(2), stat=x) ! { dg-error "must be a scalar INTEGER" }
  allocate(i(2), stat=j, stat=k) ! { dg-error "Redundant STAT" }
  allocate(i(2))
  allocate(i(2))) ! { dg-error "Syntax error in ALLOCATE" }
  allocate(i(2), errmsg=err, errmsg=err) ! { dg-error "Redundant ERRMSG" }
  allocate(i(2), errmsg=err) ! { dg-warning "useless without a STAT" }
  allocate(i(2), stat=j, errmsg=x) ! { dg-error "must be a scalar CHARACTER" }

  allocate(err) ! { dg-error "nonprocedure pointer or an allocatable" }

  allocate(error(2),stat=j,errmsg=error(1)) ! { dg-error "shall not be ALLOCATEd within" }
  allocate(i(2), stat = i(1))  ! { dg-error "shall not be ALLOCATEd within" }

  allocate(n) ! { dg-error "must be ALLOCATABLE or a POINTER" }

  allocate(i(2), i(2)) ! { dg-error "Allocate-object at" }

  ! These should not fail the check for duplicate alloc-objects.
  allocate(f(1)%c(2), f(2)%d(2))
  allocate(e%c(2), e%d(2))

end program a

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.