Commit f4d7b520 by Andre Vehreschild

Added missing testcase of r232919.

From-SVN: r232920
parent 874108a9
! { dg-do compile }
!
! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
! Check fix for PR62536 works as expected.
function f2 (x)
implicit none
integer f2, x
block
block named ! { dg-error "Unclassifiable statement" }
integer a ! should be SAVEd
a = a + x ! should increment by y every time
f2 = a
end block named ! { dg-error "Syntax error in END BLOCK statement" }
end block
return
endfunction
end
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment