llvm-project/flang/test/Semantics/modfile29.f90

! RUN: %S/test_modfile.sh %s %t %flang_fc1
! Check that implicitly typed entities get a type in the module file.

module m
  public :: a
  private :: b
  protected :: i
  allocatable :: j
end

!Expect: m.mod
!module m
! real(4)::a
! real(4),private::b
! integer(4),protected::i
! integer(4),allocatable::j
!end
[flang] Update the regression tests to use the new driver when enabled This patch updates most of the remaining regression tests (~400) to use `flang-new` rather then `f18` when `FLANG_BUILD_NEW_DRIVER` is set. This allows us to share more Flang regression tests between `f18` and `flang-new`. A handful of tests have not been ported yet - these are currently either failing or not supported by the new driver. Summary of changes: * RUN lines in tests are updated to use `%flang_fc1` instead of `%f18` * option spellings in tests are updated to forms accepted by both `f18` and `flang-new` * variables in Bash scripts are renamed (e.g. F18 --> FLANG_FC1) The updated tests will now be run with the new driver, `flang-new`, whenever it is enabled (i.e when `FLANG_BUILD_NEW_DRIVER` is set). Although this patch touches many files, vast majority of the changes are automatic: ``` grep -IEZlr "%f18" flang/test/ \| xargs -0 -l sed -i 's/%f18/%flang_fc1/g ``` Differential Revision: https://reviews.llvm.org/D100309 2021-04-12 20:27:49 +08:00			`! RUN: %S/test_modfile.sh %s %t %flang_fc1`
[flang] Fix internal error due to missing type If a name is declared in a module with just `private :: x`, we don't know if `x` is supposed to be an object or procedure, so it ends up not getting an implicit type. This leads to an internal error when writing the `.mod` file. The fix requires two changes: 1. Cause all `EntityDetails` to be converted to `ObjectEntityDetails` in `ResolveSpecificationParts`. This is done by calling `PopScope()`. The reason for not calling it there no longer applies since the addition of the `ExecutionPartSkimmer` pass. 2. In the same place, apply the implicit typing rules to every entity in the scope. Fixes flang-compiler/f18#514, fixes flang-compiler/f18#520. Original-commit: flang-compiler/f18@7e4185e9ff34dc02f6299aa16236f3b932b16652 Reviewed-on: https://github.com/flang-compiler/f18/pull/524 2019-06-25 06:22:57 +08:00			`! Check that implicitly typed entities get a type in the module file.`

			`module m`
			`public :: a`
			`private :: b`
			`protected :: i`
			`allocatable :: j`
			`end`

			`!Expect: m.mod`
			`!module m`
			`! real(4)::a`
			`! real(4),private::b`
			`! integer(4),protected::i`
			`! integer(4),allocatable::j`
			`!end`