------- Comment #8 from reichelt at gcc dot gnu dot org  2006-07-03 18:35 
-------
With the following testcase I still get an internal error:

=================================================
module FOO
contains
    subroutine FOO
        integer :: I
        character(len=selected_int_kind(I)) :: C, D, E, F, G
    end subroutine
end
=================================================

 In file PR18923.f90:3

    subroutine FOO
                 1
Error: MODULE attribute conflicts with PROCEDURE attribute at (1)
 In file PR18923.f90:4

        integer :: I
                   1
Error: Unexpected data declaration statement in CONTAINS section at (1)
 In file PR18923.f90:5

        character(len=selected_int_kind(I)) :: C, D, E, F, G
                                                           1
Error: Unexpected data declaration statement in CONTAINS section at (1)
 In file PR18923.f90:6

    end subroutine
      1
Error: Expecting END MODULE statement at (1)
 In file PR18923.f90:7

end
  1
 Internal Error at (1):
 gfc_get_default_type(): Bad symbol


-- 

reichelt at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|RESOLVED                    |REOPENED
         Resolution|WORKSFORME                  |


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18923

Reply via email to