blob: 5e5bd5dc5440bdddd31cf1a849de663190ea9e96 [file] [log] [blame]
program conflictingattributes ! Tests that conflicting attributes (two types) fail.
end program conflictingattributes
subroutine sub(z) !<<<<< 4, 1, 4, 5, integer; real; intent(out) :: y, 0, 0, fail-final
integer, intent(in) :: z
end subroutine