summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/data_array_1.f90
blob: 46c9a5bb7f9be1e7368f79b5ff2f22aff8b4c97c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
! { dg-do run }
! PR32928 DATA statement with array element as initializer is rejected
! Test case by Jerry DeLisle  <jvdelisle @gcc.gnu.org>
program chkdata
    integer, parameter,dimension(4) :: myint = [ 4,3,2,1 ]
    character(3), parameter, dimension(3) :: mychar = [ "abc", "def", "ghi" ]
    character(50) :: buffer
    integer :: a(5)
    character(5) :: c(5)
    data a(1:2) / myint(4), myint(2) /
    data a(3:5) / myint(1), myint(3), myint(1) /
    data c / mychar(1), mychar(2), mychar(3), mychar(1), mychar(2) /
    buffer = ""
    if (any(a.ne.[1,3,4,2,4])) call abort
    write(buffer,'(5(a))')c
    if (buffer.ne."abc  def  ghi  abc  def  ") call abort
end program chkdata