1! { dg-do compile }
2! { dg-options "-std=f95" }
3! Tests fix for PR17737 - already initialized variable cannot appear
4! in data statement
5      integer :: i, j = 1
6      data i/0/
7      data i/0/   ! { dg-error "Extension: re-initialization" }
8      data j/2/   ! { dg-error "Extension: re-initialization" }
9      end
10
11