2016-08-09 12:24:27 +00:00
|
|
|
Index: src/opari/opari2_parser_f.cc
|
|
|
|
===================================================================
|
2016-08-12 09:15:05 +00:00
|
|
|
--- src/opari/opari2_parser_f.cc (revision 1748)
|
2016-08-09 12:24:27 +00:00
|
|
|
+++ src/opari/opari2_parser_f.cc (working copy)
|
2016-08-12 09:15:05 +00:00
|
|
|
@@ -304,6 +304,12 @@
|
|
|
|
return result;
|
|
|
|
}
|
2016-08-09 12:24:27 +00:00
|
|
|
|
2016-08-12 09:15:05 +00:00
|
|
|
+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 @@
|
2016-08-09 12:24:27 +00:00
|
|
|
found_continuation_line = true;
|
|
|
|
m_sentinel = prev_sentinel;
|
|
|
|
}
|
2016-08-12 09:15:05 +00:00
|
|
|
- else if ( found_continuation_line )
|
|
|
|
+ else if ( found_continuation_line && !is_empty_line() )
|
2016-08-09 12:24:27 +00:00
|
|
|
{
|
|
|
|
cerr << m_curr_file << ":" << m_lineno - 1
|
|
|
|
<< ": ERROR: missing continuation line\n";
|
2016-08-12 09:15:05 +00:00
|
|
|
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 );
|
2016-08-09 12:24:27 +00:00
|
|
|
|