1! { dg-do compile } 2! { dg-options "-Wunused-parameter" } 3! 4! PR fortran/31129 - No warning on unused parameters 5! 6program fred 7integer,parameter :: j = 9 ! { dg-warning "Unused parameter" } 8end 9 10