Fortran/gfortran/regression/pr104626.f90 - llvm-test-suite - Git at Google

 ! { dg-do compile }
 program p
    procedure(g), save :: f ! { dg-error "PROCEDURE attribute conflicts" }
    procedure(g), save :: f ! { dg-error "Duplicate SAVE attribute" }
 contains
    subroutine g
    end
 end
	! { dg-do compile }
	program p
	procedure(g), save :: f ! { dg-error "PROCEDURE attribute conflicts" }
	procedure(g), save :: f ! { dg-error "Duplicate SAVE attribute" }
	contains
	subroutine g
	end
	end