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: unassig...@gcc.gnu.org
ReportedBy: m.rahm...@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)
