from my original report:
I have a program which uses conditional format tags, similar to this testcase
which is taken from page 187 of Metcalf, Reid and Cohen's Fortran 95/2003
explained:
---
program testcase
integer :: ival(30),key,i
character(30) :: buffer
character(6) :: form2(3) = (/ '(30i1)', '(15i2)', '(10i3)' /)
read (*, '(a30,i1)') buffer, key
read (buffer, form2 (key)) (ival(i), i=1,30/key)
end
---
When compiled with -std=gnu (gfortran 4.2.2, darwin8), no warning is issued
(which is good). But when compiled with -std=f95 or -std=f2003, the following
error results:
---
nell:~/work/bit barnes$ gfortran -std=f95 testcase.f
testcase.f:7.19:
read (buffer, form2 (key)) (ival(i), i=1,30/key)
1
Error: Extension: Character array in FORMAT tag at (1)
---
Tobias S. confirmed this as a bug. I was using gfortran 4.2.2 but this is
probably in 4.3.0 as well.
--
Summary: error on valid with -std=f95 (character arrays in format
tags)
Product: gcc
Version: 4.3.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: bcbarnes at gmail dot com
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=35009
