--- Comment #4 from victor dot prosolin at gmail dot com 2007-08-30 17:09
---
I am sorry for posting such a long example, but the code was not written by me
so I didn't want to make stupid changes. It's my first time reporting a bug via
bugzilla so don't be too critic
str1(j:j))
IF (k > 0) str2(j:j) = lc(k:k)
END DO
END SUBROUTINE LowCase
!
END MODULE fparser
PROGRAM fptest
!- - - - - -
- -
!
! Example program 4 for using the function parser module
!
!- - - - - -
- -
USE parameters, ONLY: rn
USE fparser
IMPLICIT NONE
INTEGER, PARAMETER :: nfunc = 1
CHARACTER (LEN=*), DIMENSION(nfunc), PARAMETER :: func = (/ '1.0e0 + 5.e1' /)
INTEGER, PARAMETER :: nvar = 0
CHARACTER (LEN=*), DIMENSION(nvar), PARAMETER :: var = 'a'
REAL(rn), DIMENSION(nvar), PARAMETER :: val = 0._rn
REAL(rn) :: res
INTEGER:: i
!- - - - - -
- -
!
CALL initf (nfunc) ! Initialize function parser for
nfunc functions
DO i=1,nfunc
WRITE(*,*)'UP parsef'
CALL parsef (i, func(i), var)! Parse and bytecompile ith function
string
END DO
DO i=1,nfunc
WRITE(*,*)'FCN evalf'
res = evalf (i, val) ! Interprete bytecode representation
of ith function
IF (EvalErrType > 0) WRITE(*,*)'*** Error: ',EvalErrMsg ()
WRITE(*,*)'res=',res
END DO
!
END PROGRAM fptest
--
Summary: ICE when compilation
Product: gcc
Version: 4.3.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: victor dot prosolin at gmail dot com
GCC build triplet: x86_64-unknown-linux-gnu
GCC host triplet: x86_64-unknown-linux-gnu
GCC target triplet: x86_64-unknown-linux-gnu
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33241
