sit/packages/performance/scorep/scorep-2.0.2-0001.patch

43 lines
1.3 KiB
Diff
Raw Permalink Normal View History

Index: src/opari/opari2_parser_f.cc
===================================================================
--- src/opari/opari2_parser_f.cc (revision 1748)
+++ src/opari/opari2_parser_f.cc (working copy)
@@ -304,6 +304,12 @@
return result;
}
+bool
+OPARI2_FortranParser::is_empty_line( void )
+{
+ return m_lowline.find_first_not_of( " \t" ) == string::npos;
+}
+
/**@brief check if this line is a comment line*/
bool
OPARI2_FortranParser::is_comment_line( void )
@@ -816,7 +822,7 @@
found_continuation_line = true;
m_sentinel = prev_sentinel;
}
- else if ( found_continuation_line )
+ else if ( found_continuation_line && !is_empty_line() )
{
cerr << m_curr_file << ":" << m_lineno - 1
<< ": ERROR: missing continuation line\n";
Index: src/opari/opari2_parser_f.h
===================================================================
--- src/opari/opari2_parser_f.h (revision 1748)
+++ src/opari/opari2_parser_f.h (working copy)
@@ -98,6 +98,10 @@
bool
is_sub_unit_header( void );
+/**@brief check if this line is empty*/
+ bool
+ is_empty_line( void );
+
/**@brief check if this line is a comment line*/
bool
is_comment_line( void );