tests/ctags/square_parens.f90

   1 module squaretest
   2   implicit none
   3
   4   type Symmetry
   5     integer :: matrix(3,3), iterations
   6   end type Symmetry
   7
   8
   9   ! make sure F2003 '[]' arrays don't break the symbol list
  10   type(Symmetry), parameter :: symmetries(14) = &
  11      [ Symmetry(reshape([1,0,0,  0,1,0,  0,0,1], [3,3]),1), &
  12        Symmetry(reshape([1,0,0,  0,0,1,  0,-1,0],[3,3]),3), &
  13        Symmetry(reshape([0,0,-1, 0,1,0,  1,0,0], [3,3]),3) ]
  14   integer :: invisible
  15
  16   ! make sure coarray syntax doesn't break the symbol list
  17   real, allocatable :: state(:)[:]
  18   integer :: invisible_two
  19
  20   ! there are multiple ways to specify `dimension` and `codimension`
  21   ! a normal dimension and a codimension
  22   real, intent(in), allocatable, dimension(:), codimension[:] :: state_two
  23   integer :: invisible_three
  24
  25   ! a 'normal' scalar (no '()'), but with a codimension '[]'
  26   real, allocatable :: assignee[:]
  27   integer :: invisible_four
  28
  29 contains
  30
  31   subroutine execute(state)
  32     real, intent(in) :: state(:)[:]
  33   end subroutine execute
  34
  35 end module squaretest
  36
  37 program main
  38   use module squaretest
  39 end program main