[Bug fortran/52093] New: Extra parenthesis with Size and Shape functions argument cause internal compiler error: Segmentation fault

["m.rahmani at aut dot ac.ir" <gcc-bugzilla@gcc.gnu.org>]

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

             Bug #: 52093
           Summary: Extra parenthesis with Size and Shape functions
                    argument cause internal compiler error: Segmentation
                    fault
    Classification: Unclassified
           Product: gcc
           Version: 4.7.0
            Status: UNCONFIRMED
          Severity: major
          Priority: P3
         Component: fortran
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: m.rahmani@aut.ac.ir


When you use extra parenthesis with size and shape argument, Fortran compiler
encounters the internal compiler error: Segmentation fault.

Test Case:
!--------------------------------------
 Program Main
 Implicit None
 Integer:: X(2,2)


 print*, size((X))
 !or
 Print*, Shape((X))

End Program Main
!--------------------------------------

Compiling the above test case produces the following error:

>>gfortran -c Testcase.f90   -fimplicit-none
 f951.exe: internal compiler error: Segmentation fault
 Please submit a full bug report,
 with preprocessed source if appropriate.
 See <http://gcc.gnu.org/bugs.html> for instructions.


By removing the extra parenthesis error goes away!!
i.e the following code works fine:

      print*, size(X)
      !or
      Print*, Shape(X)