<?xml version="1.0" encoding="UTF-8" ?>

<bugzilla version="5.2"
          urlbase="https://bugzilla.altlinux.org/"
          
          maintainer="jenya@basealt.ru"
>

    <bug>
          <bug_id>9576</bug_id>
          
          <creation_ts>2006-05-16 17:05:48 +0400</creation_ts>
          <short_desc>gfortran4.1 и русская буква &apos;я&apos;</short_desc>
          <delta_ts>2018-05-07 09:28:04 +0300</delta_ts>
          <reporter_accessible>1</reporter_accessible>
          <cclist_accessible>1</cclist_accessible>
          <classification_id>4</classification_id>
          <classification>Development</classification>
          <product>Sisyphus</product>
          <component>gcc4.1-fortran</component>
          <version>unstable</version>
          <rep_platform>all</rep_platform>
          <op_sys>Linux</op_sys>
          <bug_status>CLOSED</bug_status>
          <resolution>WONTFIX</resolution>
          
          
          <bug_file_loc></bug_file_loc>
          <status_whiteboard></status_whiteboard>
          <keywords></keywords>
          <priority>P3</priority>
          <bug_severity>major</bug_severity>
          <target_milestone>---</target_milestone>
          
          
          <everconfirmed>1</everconfirmed>
          <reporter name="serpiph">serpiph</reporter>
          <assigned_to name="Dmitry V. Levin">ldv</assigned_to>
          <cc>glebfm</cc>
    
    <cc>grenka</cc>
    
    <cc>mike</cc>
          
          <qa_contact>qa-sisyphus</qa_contact>

      

      

      

          <comment_sort_order>oldest_to_newest</comment_sort_order>  
          <long_desc isprivate="0" >
    <commentid>38071</commentid>
    <comment_count>0</comment_count>
    <who name="serpiph">serpiph</who>
    <bug_when>2006-05-16 17:05:48 +0400</bug_when>
    <thetext>Осталась ошибка с русской буквой &apos;я&apos; (код 255). Если при компиляции в режиме
фиксированной формы строки, то получается:
1) строка, например,
  5     write (&apos;длинная строка&apos;)
конвертируется в
  5     write (&apos;\xE4\xEB\xE8\xED\xED\xE0\xFF \xF1\xF2\xF0\xEE\xEA\xE0&apos;)
2) если в пределах первых 72 символов полученной строки попадётся \xFF, то
компилятор выдаёт ошибки:
Error: Unexpected end of format string in format string at (1)
и
Warning: Line truncated at (1)
Steps to Reproduce:
1. Собрать программу, состоящую из:
        program myprog
  5     write (&apos;длинная строка&apos;)
        end

Actual Results:  
Ошибка компиляции

Expected Results:  
Правильная сборка</thetext>
  </long_desc><long_desc isprivate="0" >
    <commentid>38146</commentid>
    <comment_count>1</comment_count>
    <who name="serpiph">serpiph</who>
    <bug_when>2006-05-18 15:57:03 +0400</bug_when>
    <thetext>Ещё наткнулся на букву &apos;ю&apos;:
        program test
        write (*,*) &apos;ю&apos;
        end

Выдаёт ошибку
In file test.for:2

        write (*,*) &apos;\xFE&apos;
                   1
Error: Unterminated character constant beginning at (1)
А программа
        program test
        write (*,*) &apos;я&apos;
        end

Выдаёт ошибку
In file test.for:2

        write (*,*) &apos;\xFF&apos;
                     1
Error: Syntax error in WRITE statement at (1)
С другими буквами всё нормально компилится.</thetext>
  </long_desc><long_desc isprivate="0" >
    <commentid>38148</commentid>
    <comment_count>2</comment_count>
    <who name="serpiph">serpiph</who>
    <bug_when>2006-05-18 16:11:48 +0400</bug_when>
    <thetext>Дополнительные тесты показали, что вариант с константами Холлерита:
        program test2
   5    format (1Hя)
        write (*,1)
        end
нормально собирается и работает даже без Warning. А вариант
        program test3
   6    format (s)
        write (*,6) 1Hя
        end
приводит к
In file test.for:3

        write (*,6) 1H\xFF
                     1
Warning: Extension: Hollerith constant at (1)
test.for: In function &apos;MAIN__&apos;:
test.for:1: internal compiler error: Bad IO basetype (9)
Please submit a full bug report,
with preprocessed source if appropriate.
See &lt;URL:http://bugzilla.altlinux.ru/&gt; for instructions.

вне зависимости от варианта константы.</thetext>
  </long_desc><long_desc isprivate="0" >
    <commentid>113339</commentid>
    <comment_count>3</comment_count>
    <who name="Michael Shigorin">mike</who>
    <bug_when>2010-10-09 11:38:01 +0400</bug_when>
    <thetext>На gcc4.4-fortran-4.4.2-alt2.M51.1:

f77    test.f   -o test
test.f:2.15:

  5     write (&apos;\xC4\xCC\xC9\xCE\xCE\xC1\xD1 \xD3\xD4\xD2\xCF\xCB\xC1&apos;)                                        
               1
Error: UNIT specification at (1) must be an INTEGER expression or a CHARACTER variable
make: *** [test] Error 1

Видимо, всё-таки в апстрим.</thetext>
  </long_desc><long_desc isprivate="0" >
    <commentid>170884</commentid>
    <comment_count>4</comment_count>
    <who name="Grigory Ustinov">grenka</who>
    <bug_when>2018-05-03 15:42:41 +0300</bug_when>
    <thetext>Во-первых write (&apos;длинная строка&apos;) синтаксически неверно.

Во-вторых следующий тестовый пример прекрасно работает в 
gcc version 7.3.1 20180130 (ALT 7.3.1-alt3) (GCC) 

  1       program test                                                       
  2       print *, &quot;абвгдеёжзийклмн                                          
  3      * опрстуфхцчшщъыьэюя&quot;                                               
  4       write (*, &quot;(A36 A36)&quot;) &quot;АБВГДЕЁЖЗИЙКЛМН&quot;,                          
  5      * &apos;ОПРСТУФХЦЧШЩЪЫЬЭЮЯ&apos;                                              
  6       end

Багу закрываю как WONTFIX для gcc4.1-fortran.</thetext>
  </long_desc><long_desc isprivate="0" >
    <commentid>170929</commentid>
    <comment_count>5</comment_count>
    <who name="serpiph">serpiph</who>
    <bug_when>2018-05-07 09:28:04 +0300</bug_when>
    <thetext>Проверил в версии 7.3.1, теперь проблем с русскими буквами нет, согласен.</thetext>
  </long_desc>
      
      

    </bug>

</bugzilla>