gcc/testsuite/gfortran.dg/assumed_rank_11.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fcoarray=single" }
   3 !
   4 ! PR fortran/48820
   5 !
   6 ! Assumed-rank tests
   7 subroutine foo(X)
   8  integer :: x(..)
   9  codimension :: x[*] ! { dg-error "The assumed-rank array 'x' at .1. shall not have a codimension" }
  10 end
  11
  12 subroutine foo2(X)
  13  integer, dimension(..) :: x[*] ! { dg-error "The assumed-rank array at .1. shall not have a codimension" }
  14 end
  15
  16 subroutine foo3(X)
  17  integer, codimension[*] :: x(..) ! { dg-error "The assumed-rank array at .1. shall not have a codimension" }
  18 end
  19
  20 subroutine foo4(X)
  21  integer, codimension[*], dimension(..) :: x ! { dg-error "The assumed-rank array at .1. shall not have a codimension" }
  22 end
  23
  24 subroutine bar(X)
  25  integer :: x[*]
  26  dimension :: x(..) ! { dg-error "The assumed-rank array 'x' at .1. shall not have a codimension" }
  27 end
  28
  29 subroutine foobar(X)
  30  integer :: x
  31  codimension :: x[*]
  32  dimension :: x(..) ! { dg-error "The assumed-rank array 'x' at .1. shall not have a codimension" }
  33 end
  34
  35 subroutine barfoo(X)
  36  integer :: x
  37  dimension :: x(..)
  38  codimension :: x[*] ! { dg-error "The assumed-rank array 'x' at .1. shall not have a codimension" }
  39 end
  40
  41 subroutine orig(X) ! { dg-error "may not have the VALUE or CODIMENSION attribute" }
  42  integer :: x(..)[*]
  43 end
  44
  45 subroutine val1(X)
  46  integer, value :: x(..)  ! { dg-error "VALUE attribute conflicts with DIMENSION attribute" }
  47 end
  48
  49 subroutine val2(X)
  50  integer, value :: x
  51  dimension :: x(..)  ! { dg-error "VALUE attribute conflicts with DIMENSION attribute" }
  52 end