GNU bug report logs - #6833
something about Fortran font-lock

Previous Next

Full log

View this message in rfc822 format

From: Victor Holanda Rusu <victorusu <at> gmail.com>
To: 6833 <at> debbugs.gnu.org
Subject: bug#6833: Fortran mode bug
Date: Mon, 9 Aug 2010 13:51:01 -0300

[Message part 1 (text/plain, inline)]

To Bug-fix team,

  I would like to report a bug in fortran mode.
  The problem is the change of the color scheme when we write this

     if (qmmm_mpi%commqmmm_master) then
    write (6,'(/a,i4,a)') '|QMMM: Running QMMM calculation in parallel mode
on ',qmmm_mpi%numthreads,' threads.'
        write (6,'(a)') '|QMMM: All atom division among
threads:'

        write (6,'(a)') '|QMMM:                  Start       End
Count'

    !Already know my
own.

    write(6,'(a,i8,a,i8,a,i8,a)') &
              '|QMMM: Thread(   0):
',qmmm_mpi%natom_start,'->',qmmm_mpi%natom_end,
&
                                    '
(',qmmm_mpi%natom_end-qmmm_mpi%natom_start+1,')'

    do i = 1, qmmm_mpi%numthreads-1
        call
mpi_recv(istartend,2,mpi_integer,i,0,qmmm_mpi%commqmmm,istatus,ier)

           write(6,'(a,i4,a,i8,a,i8,a,i8,a)') &
        '|QMMM: Thread(',i,'): ',istartend(1),'->',istartend(2),
&

                                    '
(',istartend(2)-istartend(1)+1,')'

       end do

and when we write only the second part of it

    do i = 1, qmmm_mpi%numthreads-1
        call
mpi_recv(istartend,2,mpi_integer,i,0,qmmm_mpi%commqmmm,istatus,ier)

           write(6,'(a,i4,a,i8,a,i8,a,i8,a)') &
        '|QMMM: Thread(',i,'): ',istartend(1),'->',istartend(2),
&

                                    '
(',istartend(2)-istartend(1)+1,')'

       end do

Can you tell me how to fix it?

Thank you in advance,
Victor Holanda Rusu
Departamento de Química Fundamental
Universidade Federal de Pernambuco
Fone: +55-81-2126-8440 ext 5007

[Message part 2 (text/html, inline)]

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.