gcc/testsuite/gfortran.dg/select_rank_4.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/93522
   4 !
   5 ! Contributed by Shubham Narlawar
   6
   7 program rank_new
   8     implicit none
   9     integer :: some_var_assumed
  10     integer, DIMENSION(3,2,1) :: array
  11     PRINT *, RANK(array)
  12    call CALL_ME(array)
  13    contains
  14 !No error expected
  15   subroutine CALL_ME23(x)
  16                 implicit none
  17                 integer:: x(..), a=10,b=20
  18                 integer, dimension(10) :: arr = (/1,2,3,4,5/)  ! { dg-error "Different shape for array assignment at .1. on dimension 1 .10 and 5." }
  19                 select rank(arr(1:3))  ! { dg-error "Syntax error in argument list" }
  20                 RANK(1)  ! { dg-error "Unexpected RANK statement" }
  21                         print *, "1"
  22                  rank(2)  ! { dg-error "Unexpected RANK statement" }
  23                         print *, "2"
  24                 end select  ! { dg-error "Expecting END SUBROUTINE statement" }
  25         end subroutine
  26 end program