Subject: bug#6833: closed (Re: bug#6833: Fortran mode bug)

From: [email-masked] (GNU bug Tracking System)
Date: Mon, 11 Jul 2011 21:16:02 +0000

Your bug report

#6833: something about Fortran font-lock

which was filed against the emacs package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to [email-masked].

-- 
6833: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=6833
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: Re: bug#6833: Fortran mode bug
From: Glenn Morris <[email-masked]>
To: [email-masked]
Date: Mon, 11 Jul 2011 17:15:43 -0400
List-Id: <debbugs-submit.debbugs.gnu.org>

This bug is being closed because it could not be reproduced and there
was no response to a request for more information.
If you reply with the requested information it can be reopened if needed.

You can view the whole report at http://debbugs.gnu.org/BUGNUMBER

Glenn Morris wrote:

> Please state what version of Emacs you are using.
>
> Please send as an attachment a minimal example file showing the problem
> (the example included in your message looks like it might have had extra
> line breaks inserted when it was mailed).
>
> Please explain _exactly_ what the problem is (for example: "at line 7,
> column 6, the text is highlighted as a comment when it is actually a
> string").
>
> At the moment, I can't see what the problem is supposed to be.

Subject: Fortran mode bug
From: Victor Holanda Rusu <[email-masked]>
To: [email-masked]
Date: Mon, 9 Aug 2010 13:51:01 -0300
List-Id: <debbugs-submit.debbugs.gnu.org>

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