------- Comment #29 from dominiq at lps dot ens dot fr 2010-05-01 12:59 ------- >Could you post the full test? I can't reproduce this?!
[macbook] lin/test% cat ../../../g95bench/win/f90/bug/pr24978_4_ma_i2_db_1.f90 SUBROUTINE data_init_matrix_invalid() ! full array initializer, re-initialize full array integer :: i(5,10) data i / 5*1, 5*2, 5*3, 5*4, 5*5, 5*6, 5*7, 5*8, 5*9, 5*10 / data i / 50 * 1 / END SUBROUTINE end [macbook] lin/test% gfc -std=f95 ../../../g95bench/win/f90/bug/pr24978_4_ma_i2_db_1.f90 ../../../g95bench/win/f90/bug/pr24978_4_ma_i2_db_1.f90:5.25: data i / 50 * 1 / 1 Error: Extension: re-initialization of 'i' at (1) ../../../g95bench/win/f90/bug/pr24978_4_ma_i2_db_1.f90:5.25: data i / 50 * 1 / 1 Error: Extension: re-initialization of 'i' at (1) ../../../g95bench/win/f90/bug/pr24978_4_ma_i2_db_1.f90:5.25: data i / 50 * 1 / 1 Error: Extension: re-initialization of 'i' at (1) ../../../g95bench/win/f90/bug/pr24978_4_ma_i2_db_1.f90:5.25: data i / 50 * 1 / 1 Error: Extension: re-initialization of 'i' at (1) ../../../g95bench/win/f90/bug/pr24978_4_ma_i2_db_1.f90:5.25: data i / 50 * 1 / 1 Error: Extension: re-initialization of 'i' at (1) ../../../g95bench/win/f90/bug/pr24978_4_ma_i2_db_1.f90:5.25: data i / 50 * 1 / 1 Error: Extension: re-initialization of 'i' at (1) ../../../g95bench/win/f90/bug/pr24978_4_ma_i2_db_1.f90:5.25: data i / 50 * 1 / 1 Error: Extension: re-initialization of 'i' at (1) ../../../g95bench/win/f90/bug/pr24978_4_ma_i2_db_1.f90:5.25: data i / 50 * 1 / 1 Error: Extension: re-initialization of 'i' at (1) ../../../g95bench/win/f90/bug/pr24978_4_ma_i2_db_1.f90:5.25: data i / 50 * 1 / 1 Error: Extension: re-initialization of 'i' at (1) ../../../g95bench/win/f90/bug/pr24978_4_ma_i2_db_1.f90:5.25: data i / 50 * 1 / 1 Error: Extension: re-initialization of 'i' at (1) [macbook] lin/test% cat ../../../g95bench/win/f90/bug/pr24978_4_ma_i2_db_2.f90 SUBROUTINE data_init_matrix_invalid() ! full array initializer, re-initialize full array integer :: i(10,5) data i / 10*1, 10*2, 10*3, 10*4, 10*5 / data i / 50 * 1 / END SUBROUTINE end [macbook] lin/test% gfc -std=f95 ../../../g95bench/win/f90/bug/pr24978_4_ma_i2_db_2.f90 ../../../g95bench/win/f90/bug/pr24978_4_ma_i2_db_2.f90:5.25: data i / 50 * 1 / 1 Error: Extension: re-initialization of 'i' at (1) ../../../g95bench/win/f90/bug/pr24978_4_ma_i2_db_2.f90:5.25: data i / 50 * 1 / 1 Error: Extension: re-initialization of 'i' at (1) ../../../g95bench/win/f90/bug/pr24978_4_ma_i2_db_2.f90:5.25: data i / 50 * 1 / 1 Error: Extension: re-initialization of 'i' at (1) ../../../g95bench/win/f90/bug/pr24978_4_ma_i2_db_2.f90:5.25: data i / 50 * 1 / 1 Error: Extension: re-initialization of 'i' at (1) ../../../g95bench/win/f90/bug/pr24978_4_ma_i2_db_2.f90:5.25: data i / 50 * 1 / 1 Error: Extension: re-initialization of 'i' at (1) -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=24978