23 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Ensure that accessibility works on GENERIC statement3module m4 generic, public :: public => specific5 generic, private :: private => specific6 contains7 subroutine specific8 end9end10program main11 use m12 generic :: public => internal13 generic :: private => internal14 call public15 call public(1)16 !ERROR: No specific subroutine of generic 'private' matches the actual arguments17 call private18 call private(1)19 contains20 subroutine internal(n)21 end22end23