Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Fortran 2008 type declaration syntax

39 views
Skip to first unread message

Ian Harvey

unread,
Feb 24, 2013, 6:18:23 PM2/24/13
to
Is the following a conforming type declaration statement in F2008?

TYPE(CHARACTER*10,) char_scalar

James Van Buskirk

unread,
Feb 24, 2013, 6:38:58 PM2/24/13
to
"Ian Harvey" <ian_h...@bigpond.com> wrote in message
news:4dxWs.3850$1k5....@viwinnwfe01.internal.bigpond.com...

> Is the following a conforming type declaration statement in F2008?

> TYPE(CHARACTER*10,) char_scalar

R501,R403,R404,R420,R421,C421?

--
write(*,*) transfer((/17.392111325966148d0,6.5794487871554595D-85, &
6.0134700243160014d-154/),(/'x'/)); end


Ian Harvey

unread,
Feb 24, 2013, 8:06:53 PM2/24/13
to
On 2013-02-25 10:38 AM, James Van Buskirk wrote:
> "Ian Harvey" <ian_h...@bigpond.com> wrote in message
> news:4dxWs.3850$1k5....@viwinnwfe01.internal.bigpond.com...
>
>> Is the following a conforming type declaration statement in F2008?
>
>> TYPE(CHARACTER*10,) char_scalar
>
> R501,R403,R404,R420,R421,C421?

Thanks - I had stumbled on C422 but overlooked C421. Must be eye check
time. I think that chain of rules and constraints (plus C422) says "Yes".

And given C422, this:

TYPE(CHARACTER*10,) :: char_scalar

is not conforming.

Some entries for the "strange but true" parsing tests file.
0 new messages