Liste des Groupes | Revenir à co vms |
On 2025-01-31, Arne Vajhøj <arne@vajhoej.dk> wrote:It is an extension in VMS fortran.Fortran got some other rather unique usagesDEC Fortran still allows Hollerith constants without having to specify
of logicals:
>
$ type morelogfun.for
program morelogfun
logical*1 a(12)
data a/1hH,1he,1hl,1hl,1ho,1h ,1hw,1ho,1hr,1hl,1hd,1h!/
integer*4 i
write(*,*) (a(i),i=1,12)
write(*,'(1x,12a1)') (a(i),i=1,12)
end
$ for morelogfun
a compiler option to enable them ?
For people who do not know historical Fortran, see:
https://en.wikipedia.org/wiki/Hollerith_constant
Hollerith constants have been removed from the current Fortran language
standards (and rightly so).
Date | Sujet | # | Auteur | |
31 Jan 25 | ![]() | 62 | Arne Vajhøj | |
31 Jan 25 | ![]() ![]() | 3 | Robert A. Brooks | |
31 Jan 25 | ![]() ![]() ![]() | 2 | Arne Vajhøj | |
31 Jan 25 | ![]() ![]() ![]() ![]() | 1 | Chris Townley | |
31 Jan 25 | ![]() ![]() | 1 | jeffrey_dsi | |
31 Jan 25 | ![]() ![]() | 35 | Dave Froble | |
31 Jan 25 | ![]() ![]() ![]() | 33 | Arne Vajhøj | |
31 Jan 25 | ![]() ![]() ![]() ![]() | 30 | Dan Cross | |
31 Jan 25 | ![]() ![]() ![]() ![]() ![]() | 27 | Arne Vajhøj | |
31 Jan 25 | ![]() ![]() ![]() ![]() ![]() ![]() | 11 | Dan Cross | |
1 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 2 | Craig A. Berry | |
1 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 1 | Arne Vajhøj | |
1 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 8 | Arne Vajhøj | |
1 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 6 | Arne Vajhøj | |
1 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 5 | Arne Vajhøj | |
1 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 1 | Dan Cross | |
2 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 3 | Craig A. Berry | |
2 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 2 | Arne Vajhøj | |
2 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 1 | Dan Cross | |
1 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 1 | Dan Cross | |
31 Jan 25 | ![]() ![]() ![]() ![]() ![]() ![]() | 15 | Arne Vajhøj | |
2 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 1 | Lawrence D'Oliveiro | |
3 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 13 | Simon Clubley | |
3 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 12 | Arne Vajhøj | |
3 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 10 | Lawrence D'Oliveiro | |
4 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 9 | Arne Vajhøj | |
4 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 7 | Lawrence D'Oliveiro | |
4 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 6 | Arne Vajhøj | |
4 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 2 | Lawrence D'Oliveiro | |
5 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 1 | Arne Vajhøj | |
5 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 3 | Lawrence D'Oliveiro | |
5 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 2 | Arne Vajhøj | |
5 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 1 | Lawrence D'Oliveiro | |
4 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 1 | Dan Cross | |
5 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 1 | Arne Vajhøj | |
31 Jan 25 | ![]() ![]() ![]() ![]() ![]() | 2 | Chris Townley | |
31 Jan 25 | ![]() ![]() ![]() ![]() ![]() ![]() | 1 | Dan Cross | |
1 Feb 25 | ![]() ![]() ![]() ![]() | 2 | Dave Froble | |
1 Feb 25 | ![]() ![]() ![]() ![]() ![]() | 1 | Arne Vajhøj | |
31 Jan 25 | ![]() ![]() ![]() | 1 | Chris Townley | |
31 Jan 25 | ![]() ![]() | 20 | Simon Clubley | |
31 Jan 25 | ![]() ![]() ![]() | 17 | Arne Vajhøj | |
31 Jan 25 | ![]() ![]() ![]() ![]() | 16 | Arne Vajhøj | |
31 Jan 25 | ![]() ![]() ![]() ![]() ![]() | 14 | Dan Cross | |
3 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() | 13 | Simon Clubley | |
3 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 2 | John Dallman | |
3 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 1 | Lawrence D'Oliveiro | |
3 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 1 | Dan Cross | |
6 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 9 | Arne Vajhøj | |
6 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 1 | Arne Vajhøj | |
6 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 5 | Dan Cross | |
6 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 4 | Arne Vajhøj | |
6 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 1 | Dan Cross | |
6 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 2 | Lawrence D'Oliveiro | |
7 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 1 | Arne Vajhøj | |
6 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 2 | Lawrence D'Oliveiro | |
7 Feb 25 | ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() | 1 | Arne Vajhøj | |
31 Jan 25 | ![]() ![]() ![]() ![]() ![]() | 1 | Lawrence D'Oliveiro | |
1 Feb 25 | ![]() ![]() ![]() | 2 | Dave Froble | |
3 Feb 25 | ![]() ![]() ![]() ![]() | 1 | Simon Clubley | |
2 Feb 25 | ![]() ![]() | 1 | Lawrence D'Oliveiro | |
2 Apr 25 | ![]() ![]() | 1 | Johnny Billquist |
Les messages affichés proviennent d'usenet.