(j3.2006) IMPLICIT TYPE(*)

[Bader, Reinhold]

Given that IMPLICIT is followed by a <declaration-type-spec>, the following should be valid in F2008:

module mod_upimp
  type :: foo
     integer :: i
  end type
end module
program upimp
  use mod_upimp
  implicit class(foo) (a-b)
  implicit class(*) (c)
  allocatable :: aaf, caf
  allocate(aaf, source=foo(2))
  allocate(caf, source=foo(3))
  select type (aaf)
  type is (foo)
    write(*,*) aaf
  end select
  select type (caf)
  type is (foo)
    write(*,*) caf
  end select
end program

although only one of the compilers at my disposal accepts this. If this code is valid, I see no reason why IMPLICIT TYPE(*) (...) shouldn't be.

Regards
Reinhold

> -----Urspr?ngliche Nachricht-----
> Von: j3-bounces at mailman.j3-fortran.org [mailto:j3-bounces at mailman.j3-
> fortran.org] Im Auftrag von Bill Long
> Gesendet: Freitag, 1. M?rz 2013 14:54
> An: fortran standards email list for J3
> Betreff: (j3.2006) IMPLICIT TYPE(*)
> 
> Question arose:
> 
> Do we (did we intent to) allow this in the interop TS:
> 
> IMPLICIT TYPE(*)  (A)
> 
> as long as the only variables starting with the letter A are dummy
> arguments?
> 
> Cheers,
> Bill
> 
> --
> Bill Long                                           longb at cray.com
> Fortran Technical Support    &                 voice: 651-605-9024
> Bioinformatics Software Development            fax:   651-605-9142
> Cray Inc./Cray Plaza, Suite 210/380 Jackson St./St. Paul, MN 55101
> 
> 
> _______________________________________________
> J3 mailing list
> J3 at mailman.j3-fortran.org
> http://mailman.j3-fortran.org/mailman/listinfo/j3