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

--- Comment #5 from Steve Kargl <sgk at troutmask dot apl.washington.edu> ---
On Wed, Feb 26, 2014 at 07:15:49PM +0000, kargl at gcc dot gnu.org wrote:

The workaround should be obvious, but just encase

> Reduced testcase 
> 
>       subroutine modelg(ncm)
>       implicit none
>       integer, parameter :: pc = 30, pm = pc - 1
>       integer i
>       character*4 catt(pm,2)

        character(len=7) stmp

>       integer ncm,iatt(pm,pc)
>       do i=1,ncm

           stmp = catt(i,1)//catt(i,2)
           if (stmp .eq. 'central') exit

>          if (catt(i,1)//catt(i,2).eq.'central') exit
>       end do
>       iatt(i,4)=1
>       end

A similar temporary should be applicable to the original code.

Reply via email to