| !RUN: not %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s | |
| module m | |
| generic :: gen => spec2, spec1 | |
| contains | |
| subroutine spec2(a,b) | |
| real, intent(in) :: a(*), b(*) | |
| end | |
| subroutine spec1(a) | |
| real, intent(in) :: a(:) | |
| end | |
| subroutine test(a) | |
| real, intent(in) :: a(*) | |
| !CHECK: Dummy argument 'b=' (#2) is not OPTIONAL and is not associated with an actual argument in this procedure reference | |
| !CHECK: Assumed-size array may not be associated with assumed-shape dummy argument 'a=' | |
| call gen(a) | |
| end | |
| end |