Index: src/fortranscanner.l
===================================================================
--- src/fortranscanner.l	(revision 749)
+++ src/fortranscanner.l	(working copy)
@@ -485,7 +485,7 @@
 
  /*------- type definition  -------------------------------------------------------------------------------*/
 
-<Start,ModuleBody>"type"({BS_}|({COMMA}{ACCESS_SPEC})) { /* type definition found : TYPE , access-spec::type-name |*/
+<Start,ModuleBody>"type"({BS_}|({COMMA}{ACCESS_SPEC})?({COMMA}"extends"{ARGS_L0})?) { /* type definition found : TYPE , access-spec::type-name |*/
                                           if(YY_START == Start)
                                           {
                                             addModule(NULL); 
