linux下编程用 编译软件

				! { dg-do compile }				! Test fix of PR24705 - ICE on assumed character length				! internal function.				!				character (6) :: c				  c = f1 ()        ! { dg-error "must not be assumed length" }				  if (c .ne. 'abcdef') call abort				contains				  function f1 ()				    character (*) :: f1				    f1 = 'abcdef'				  end function f1				end