gcc/testsuite/gfortran.dg/data_invalid.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f95 -fmax-errors=0" }
   3 !
   4 ! Testcases from PR fortran/24978
   5 !
   6
   7 SUBROUTINE data_init_scalar_invalid()
   8   integer :: a
   9   data       a / 1 /
  10   data       a / 1 /                             ! { dg-error "re-initialization" }
  11
  12   integer :: b = 0
  13   data       b / 1 /                             ! { dg-error "re-initialization" }
  14 END SUBROUTINE
  15
  16 SUBROUTINE data_init_array_invalid()
  17   ! initialize (at least) one element, re-initialize full array
  18   integer :: a(3)
  19   data       a(2) / 2 /
  20   data       a    / 3*1 /                        ! { dg-error "re-initialization" }
  21
  22   ! initialize (at least) one element, re-initialize subsection including the element
  23   integer :: b(3)
  24   data       b(2)   / 2 /
  25   data       b(1:2) / 2*1 /                      ! { dg-error "re-initialization" }
  26
  27   ! initialize subsection, re-initialize (intersecting) subsection
  28   integer :: c(3)
  29   data       c(1:2) / 2*1 /
  30   data       c(2:3) / 1,1 /                      ! { dg-error "re-initialization" }
  31
  32   ! initialize subsection, re-initialize full array
  33   integer :: d(3)
  34   data       d(2:3) / 2*1 /
  35   data       d      / 2*2, 3 /                   ! { dg-error "re-initialization" }
  36
  37   ! full array initializer, re-initialize (at least) one element
  38   integer :: e(3)
  39   data       e    / 3*1 /
  40   data       e(2) / 2 /                          ! { dg-error "re-initialization" }
  41
  42   integer :: f(3) = 0                            ! { dg-error "already is initialized" }
  43   data       f(2) / 1 /                          ! { dg-error "already is initialized" }
  44
  45   ! full array initializer, re-initialize subsection
  46   integer :: g(3)
  47   data       g      / 3*1 /
  48   data       g(1:2) / 2*2 /                      ! { dg-error "re-initialization" }
  49
  50   integer :: h(3) = 1                            ! { dg-error "already is initialized" }
  51   data       h(2:3) / 2*2 /                      ! { dg-error "already is initialized" }
  52
  53   ! full array initializer, re-initialize full array
  54   integer :: i(3)
  55   data       i   / 3*1 /
  56   data       i   / 2,2,2 /                       ! { dg-error "re-initialization" }
  57
  58   integer :: j(3) = 1                            ! { dg-error "already is initialized" }
  59   data       j   / 3*2 /                         ! { dg-error "already is initialized" }
  60 END SUBROUTINE
  61
  62 SUBROUTINE data_init_matrix_invalid()
  63   ! initialize (at least) one element, re-initialize full matrix
  64   integer :: a(3,3)
  65   data       a(2,2) / 1 /
  66   data       a      / 9*2 /                      ! { dg-error "re-initialization" }
  67
  68   ! initialize (at least) one element, re-initialize subsection
  69   integer :: b(3,3)
  70   data       b(2,2) / 1 /
  71   data       b(2,:) / 3*2 /                      ! { dg-error "re-initialization" }
  72
  73   ! initialize subsection, re-initialize (intersecting) subsection
  74   integer :: c(3,3)
  75   data       c(3,:) / 3*1 /, c(:,3) / 3*2 /      ! { dg-error "re-initialization" }
  76
  77   ! initialize subsection, re-initialize full array
  78   integer :: d(3,3)
  79   data       d(2,:) / 1,2,3 /
  80   data       d      / 9*4 /                      ! { dg-error "re-initialization" }
  81
  82   ! full array initializer, re-initialize (at least) one element
  83   integer :: e(3,3)
  84   data       e      / 9*1 /
  85   data       e(2,3) / 2 /                        ! { dg-error "re-initialization" }
  86
  87   integer :: f(3,3) = 1                          ! { dg-error "already is initialized" }
  88   data       f(3,2) / 2 /                        ! { dg-error "already is initialized" }
  89
  90   ! full array initializer, re-initialize subsection
  91   integer :: g(3,3)
  92   data       g          / 9 * 1 /
  93   data       g(2:3,2:3) / 2, 2*3, 4 /            ! { dg-error "re-initialization" }
  94
  95   integer :: h(3,3) = 1                          ! { dg-error "already is initialized" }
  96   data       h(2:3,2:3) / 2, 2*3, 4 /            ! { dg-error "already is initialized" }
  97
  98   ! full array initializer, re-initialize full array
  99   integer :: i(3,3)
 100   data       i   / 3*1, 3*2, 3*3 /
 101   data       i   / 9 * 1 /                       ! { dg-error "re-initialization" }
 102
 103   integer :: j(3,3) = 0                          ! { dg-error "already is initialized" }
 104   data       j   / 9 * 1 /                       ! { dg-error "already is initialized" }
 105 END SUBROUTINE
 106
 107 SUBROUTINE data_init_misc_invalid()
 108   ! wrong number of dimensions
 109   integer :: a(3)
 110   data       a(1,1) / 1 /                        ! { dg-error "Rank mismatch" }
 111
 112   ! index out-of-bounds, direct access
 113   integer :: b(3)
 114   data       b(-2) / 1 /                         ! { dg-error "below array lower bound" }
 115                                                  ! { dg-warning "is out of bounds" "" { target *-*-* } .-1 }
 116   ! index out-of-bounds, implied do-loop (PR32315)
 117   integer :: i
 118   character(len=20), dimension(4) :: string
 119   data (string(i), i = 1, 5) / 'A', 'B', 'C', 'D', 'E' /   ! { dg-error "above array upper bound" }
 120 END SUBROUTINE