Added test case for handling a module procedure in a type and fix for

it.

src/fparser/one/block_statements.py

@@ -1239,7 +1239,8 @@ class EndType(EndStatement):
     blocktype = 'type'
 
 
-class Type(BeginStatement, HasVariables, HasAttributes, AccessSpecs):
+class Type(BeginStatement, HasVariables, HasAttributes, HasModuleProcedures,
+           AccessSpecs):
     """
     TYPE [[, <typ-attr-spec-list>] ::] <type-name> [( <type-param-name-list> )]
     <typ-attr-spec> = <access-spec> | EXTENDS ( <parent-type-name> )

src/fparser/one/tests/test_parsefortran.py

@@ -213,6 +213,30 @@ def test_free90():
     assert caught[1:] == expected
 
 
+def test_module_procedure():
+    '''
+    Tests a type that contains a procedure, and makes sure
+    it has a module_procedures attribute
+    '''
+    string = """
+module foo
+    type, public :: grid_type
+   contains
+        procedure :: get_tmask
+   end type grid_type
+end module foo
+"""
+
+    reader = fparser.common.readfortran.FortranStringReader(string)
+    mode = fparser.common.sourceinfo.FortranFormat.from_mode('free')
+    reader.set_format(mode)
+    parser = fparser.one.parsefortran.FortranParser(reader)
+    parser.parse()
+
+    # Fails if the class Type does not have a "module_procedures" attribute
+    parser.analyze()
+
+
 def test_f77():
     '''
     Tests inherited from implementation code.