Skip to content
Permalink
Browse files

Merge pull request #1808 from p-vitt/fortran-protected

Introduced protected attribute for Fortran
  • Loading branch information...
masatake committed Jul 30, 2018
2 parents 3522685 + b26dfca commit e65e91a2eca1cd3315eefd23a8fbd1067309b2fc
@@ -0,0 +1,2 @@
i input.f90 /^ in/;" v module:test_implementation
test_implementation input.f90 /^module test_implementation$/;" m
@@ -0,0 +1,3 @@
module test_implementation
integer, public, protected :: i
end module test_implementation
@@ -118,6 +118,7 @@ enum eKeywordId {
KEYWORD_private,
KEYWORD_procedure,
KEYWORD_program,
KEYWORD_protected,
KEYWORD_public,
KEYWORD_pure,
KEYWORD_real,
@@ -317,6 +318,7 @@ static const keywordTable FortranKeywordTable [] = {
{ "private", KEYWORD_private },
{ "procedure", KEYWORD_procedure },
{ "program", KEYWORD_program },
{ "protected", KEYWORD_protected },
{ "public", KEYWORD_public },
{ "pure", KEYWORD_pure },
{ "real", KEYWORD_real },
@@ -1428,6 +1430,7 @@ static tokenInfo *parseQualifierSpecList (tokenInfo *const token)
case KEYWORD_optional:
case KEYWORD_private:
case KEYWORD_pointer:
case KEYWORD_protected:
case KEYWORD_public:
case KEYWORD_save:
case KEYWORD_target:
@@ -1823,6 +1826,7 @@ static bool parseSpecificationStmt (tokenInfo *const token)
case KEYWORD_optional:
case KEYWORD_pointer:
case KEYWORD_private:
case KEYWORD_protected:
case KEYWORD_public:
case KEYWORD_save:
case KEYWORD_target:

0 comments on commit e65e91a

Please sign in to comment.
You can’t perform that action at this time.