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